Database'den Stringgrid'e Veri Aktarma ( Taksitli Satışları )

[Caylaq]

Selamlar,

Database şu şekilde

FormNo ---- Vadesi---------TaksitTutar
1234--------17.03.2008---------100
1234--------17.04.2008---------200
1234--------17.05.2008---------300
1234--------17.06.2008---------400

Verileri Stringgride aktarırken aşağıdaki methodu kullaıyorum ama başarılı olamıyorum.
Tüm satırlara ilk vade ve tutar geliyor. Nasıl bir döngü kurmalıyım


Tşkler

Kullandığım kod aşağıdadır

Form65.StringGrid1.RowCount:=StrToInt(Form65.Edt7.Text);
i:=StrToInt(Form65.Edt7.Text);
 
for i:=0 to Form65.StringGrid1.RowCount-1 do
 
if Form65.StringGrid1.Row < Form65.StringGrid1.RowCount-1
then
Begin
      with Form65.stringgrid1 do
      begin
      Form65.stringgrid1.Cells[0,i]:=DBGrd1.Fields[30].Text; // TaksitVade
      Form65.stringgrid1.Cells[1,i]:=DBGrd1.Fields[29].Text;  // Taksit Tutarı
      Form65.stringgrid1.Cells[2,i]:='YTL';
      end;
end ;

[Caylaq]

@BAttosai Diye bir Hocam Var. Allah Razı olsun ondan.

Soruyu şu şekilde çözdü kendisi.

 
var
i:integer;
begin
//........Sorgu kodunu buraya yaz...
Query.First;
i:=1;
Form65.stringgrid1.rowcount:=Query.recordcount;
while not Query.eof do
begin
Form65.stringgrid1.Cells[0,i]:=Query.Fields[30].Text; // TaksitVade
Form65.stringgrid1.Cells[1,i]:=Query.Fields[29].Text; // Taksit Tutarı
Form65.stringgrid1.Cells[2,i]:='YTL';
Query.Next;
inc(i);
end;
end;