[exap]

код немного изменился.вот он:

Код:

procedure TForm1.Button3Click(Sender: TObject);
var i: integer;
begin
  dbgrid3.DataSource.DataSet.First;
  while not dbgrid3.DataSource.DataSet.EOF do
  begin
    for i := 0 to (dbgrid3.DataSource.Dataset.FieldCount - 1) do
     Clipboard.AsText:=(dbgrid3.DataSource.Dataset.Fields[5].AsString);
    dbgrid3.DataSource.DataSet.Next;
  end;
end;

в буфере только одно значение. В чем ошибка?