Hola de nuevo.
Y mas reusable sería:
Código Delphi
[-]
procedure PasteInColRow(SG: TStringGrid; const aCol, aRow: Integer);
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
SG.Cols[aCol].Strings[aRow+i] := TS[i];
finally
TS.Free;
end;
end
else
ShowMessage('No hay texto en el PortaPapeles');
end;
Ej. uso:
Código Delphi
[-]
PasteInColRow(StringGrid1, 3, 2);
Saludos