решения нашел но теперь как узнать количество строк, если задать цикл чтоб чтоб окончить.
Код:
procedure TForm2.Button3Click(Sender: TObject);
var
i : integer;
a,b,c,d,f,k:string;
begin
DataSource1.DataSet.Next;
a:=adoQuery1.fields[0].asstring;
b:=adoQuery1.fields[1].asstring;
c:=adoQuery1.fields[2].asstring;
d:=adoQuery1.fields[3].asstring;
f:=adoQuery1.fields[4].asstring;
k:=adoQuery1.fields[5].asstring;
label19.Caption:=a;
label20.Caption:=b;
label21.Caption:=c;
label22.Caption:=d;
label23.Caption:=f;
label24.Caption:=k;
end;