[ecfisa]

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);  // ( índice base-cero y sin comprobación de desborde )

Saludos