DBGrid de Birden Fazla Kayıt Seçmek.

[OZCANK]

Arkadaşlar Merhaba ; DBGrid1 e fatura listesini getiriyorum ve bu faturalardan bir kaçını seçmek ve eklemek istiyorum şöyle bir kod uyarladım ama bir türlü FATIRS_NO yu yazdıramadım. Yardımcı olur musunuz?

şu şekilde yapmaya çalışıyorum; SELECT * FROM TBLFATUIRS WHERE FATIRS_NO IN ('123','456','789')

procedure TForm29.DBGrid1CellClick(Column: TColumn);
var
 i,x: Integer;
 S: String;
begin
 mmo1.Lines.Clear;
 mmo1.Lines.Add('SELECT FATIRS_NO FROM TBLFATUIRS WHERE FATIRS_NO IN  (');

 if dbgrid1.SelectedRows.Count > 0 then
 begin
   with dbgrid1.DataSource.DataSet do
   begin
     for i := 0 to dbgrid1.SelectedRows.Count -1 do
     begin
       S := EmptyStr;
       GotoBookmark(Tbookmark(dbgrid1.SelectedRows[i]));
       for x := 0 to dbgrid1.Columns.Count - 1 do
       begin
         S := dbgrid1.Columns[0].Field.AsString;
       end;
       mmo1.Lines.Add(QuotedStr(S)+',');
     end;
   end;
 end;
 if mmo1.Lines.Count > 0 then
 begin
   S := mmo1.Lines[mmo1.Lines.Count-1];
   if S[Length(S)] = ',' then
   begin
     SetLength(S, Length(S)-1);
     mmo1.Lines[mmo1.Lines.Count-1] := S;
   end;
 end;
 mmo1.Lines.Add(')');
end;