Problem przy rysowaniu na kanwie - wierzchołki grafu - Delphi

hej,

muszę narysować graf z listy sąsiedztwa lub listy krawędzi,

tekst wprowadzany ręcznie lub z pliku - tekst juz sparsowałem, ale dawno nie pisałem ww delphi

prosze podpowiedzcie mi jak narysować wierzchołki grafu w kodzie - czyli tworzenie Tshape o takim promieniu jak label z numerem wierzchołka w środku

np cyfra 11 w kole

potem musze te wierzchołki połączyć liniami, tez prosił bym o przykład tworzenia jednej lini oraz jednej lini z grotem strzałki.

używam Embarcadero RAD studio - może tu jest problem ze wysypuje mi błedy EAccessViolation kiedy próboje robić na przykładach z innych stron ?

dodatkowo muszę z listy krawędzi narysować macierz sąsiedztwa - czyli TStringGrid - i jesli jest połaczenie miedzy dwoma wierzchołkami to wpisuje tam 1, jesli NIE MA to 0. problem polega na tym że jesli wpisuje coś do striing grida to jest on pusty, a jesli klikne 2X tą komórkę która ma coś wpisane to cyfra w tej komórce się podświetla - zaznacza i potem jest już widoczna. ale tak jej nie widać
`
if MessageBox(handle,'Czy wyświetlić macierz sąsiedztwa ?',
'Macierz Sąsiedztwa',MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2) = IDYES then
begin
frmmacierz.stgrdMacierzSasiedztwa.Cells[3,3]:='12';

     frmMacierz.Show;

   end;

`