[pesi]

вот это вставляет в сетку додедай как нужно тебе...
в

Код:

uses Clipbrd;

Код:

var
 str, cell : TStringList;
 i, u : integer;
begin
str := TStringList.create;
str.text :=ClipBoard.AsText;
cell := TStringList.create;
stringgrid1.RowCount:=1;
stringgrid1.ColCount:=1;
 for i:=0 to str.Count-1 do
  begin
   stringgrid1.RowCount:=stringgrid1.RowCount+1;
   cell.text := stringReplace(str[i], #9, #13#10, [rfReplaceAll]);
    for u:=0 to cell.Count-1 do
     begin
     if stringgrid1.ColCount - 1 < u then stringgrid1.ColCount:=stringgrid1.ColCount+1;
     stringgrid1.Cells[u, i] :=cell[u];
     end;
  end;
str.Free;
cell.Free;
stringgrid1.RowCount:=stringgrid1.RowCount-1;
end;