[akimov_aleks]

Код:

procedure TForm2.Button3Click(Sender: TObject);
var
i : integer;
a,b,c,d,f,k:string;
begin
i:=1;
ADOQuery2.Insert;
ADOQuery2.AppendRecord([a[i],b[i],c[i],d[i],f[i],k[i]]);
ADOQuery2.Post;
label19.Caption:=a;
label20.Caption:=b;
label21.Caption:=c;
label22.Caption:=d;
label23.Caption:=f;
label24.Caption:=k;
end;

Ругаеться не хочет работать