[ecfisa]

Hola.

Otra opción:

Código Delphi [-]
...
var
  i : Integer;
begin
  for i := 0 to StringGrid1.RowCount-1 do
  begin
    StringGrid1.Rows[i].Delimiter := ' ';
    Memo1.Lines.Add( StringGrid1.Rows[i].DelimitedText );
  end;
...

Saludos