[Morfey85]

Проблема в том что при при запуске вданном виде вроде работает
но если убрать коментарии с двух строк внизу там где про ListBox
программа компилируется и при нажатии кнопки Button1Click
выдает ошибку не могу понять почему

И вообще если будут замечания по коду и советы как изменить в лучшую сторону буду очень благодарен.

Код:

procedure TForm1.FormPaint(Sender: TObject);
var
  z,x,k:integer;
  fam,imia,otch,s:String;
begin
  z:=TabControl1.TabIndex;
  ADOTable1.First;
  TabControl1.Tabs.Clear;
  Memo1.Lines.Clear;
  for k:=0 to ADOTable1.RecordCount-1 do
  begin
    s:=ADOTable1.FieldValues['Фамилия'];
    s:=s[1];
    if Memo1.Lines.Count=0 then Memo1.Lines.Add(s) else
      if Memo1.Lines.IndexOf(s)>=0 then continue else
        if s>Memo1.Lines[Memo1.Lines.Count-1] then Memo1.Lines.Add(s) else
          for x:=0 to Memo1.Lines.Count-1 do
            if s<Memo1.Lines[x] then
            begin
              Memo1.Lines.Insert(x,s);
              break;
            end;
    ADOTable1.Next;
  end;
  TabControl1.Tabs:=Memo1.Lines;
  TabControl1.TabIndex:=z;
  s:=Memo1.Lines[z];
  ADOTable1.First;
  for k:=0 to ADOTable1.RecordCount-1 do
  begin
    fam:=ADOTable1.FieldValues['Фамилия'];
    if s=fam[1] then
    begin
      imia:=ADOTable1.FieldValues['Имя'];
      otch:=ADOTable1.FieldValues['Отчество'];
//      ListBox1.Items[k]:=fam+' '+imia[1]+'. '+otch+'.';
//      ListBox2.Items[k]:=ADOTable1.FieldValues['ID'];
    end;
    ADOTable1.Next;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FormPaint(Sender);
end;

[Aristarh Dark]

Вообще-то стоило указать что за ошибка.
Я думаю ты пытаешься добавить в ListBox значения, а делается это так:

Код:

ListBox.Items.Append('все что дуще угодно');

[Morfey85]

Попробывал так и вот так:

ListBox1.Items.Insert(x,fam+' '+imia[1]+'. '+otch+'.');
ListBox2.Items.Insert(x,ADOTable1.FieldValues['ID']);

все равно не помогло

[Morfey85]

Все разобрался вот так заработало

ADOTable1.First;
ListBox1.Items.Clear;
ListBox2.Items.Clear;
x:=0;
for k:=0 to ADOTable1.RecordCount-1 do
begin
fam:=ADOTable1.FieldValues['Фамилия'];
if s=fam[1] then
begin
imia:=ADOTable1.FieldValues['Имя'];
otch:=ADOTable1.FieldValues['Отчество'];
ListBox1.Items.Insert(x,fam+' '+imia[1]+'. '+otch+'.');
ListBox2.Items.Insert(x,ADOTable1.FieldValues['ID']);
inc(x);
end;
ADOTable1.Next;
end;