...
var
TS: TStrings;
i : Integer;
begin
if Clipboard.HasFormat(CF_TEXT)
then
begin
TS := TStringList.Create;
try
TS.Text := clipboard.AsText;
for i := 0 to TS.Count-1 do
StringGrid1.Cols[1].Strings[i+1] := TS[i];
finally
TS.Free;
end;
end
else
ShowMessage('No hay texto en el PortaPapeles');
end;