Привет всем. Использую такой код:
procedure TForm1.AttachTOGridClick(Sender: TObject);
Код:
Var AdvForm:TForm;
ListOFGrids:TListBox;
i:Integer;
begin
AdvForm:= TForm.Create(nil);
AdvForm.Left:=Form1.Left+round(Form1.Width/2);
AdvForm.Top:=Form1.Top+round(Form1.Height/2);
AdvForm.Visible:=True;
ListOFGrids:=TListBox.Create(Self);
ListOFGrids.Items.Add('YYYY');
end;
Не пойму, почему на последней строке прога вылетает. Если её закомментировать, ошибка пропадёт.