[Mick]

Existe la posibilidad de usar la
propiedad CommaText del objeto TStrings, aunque tiene sus limitaciones (usa tanto el espacio como la coma para separar las palabras):

var
  i: integer;
  Palabras:TStringList;
begin

 Palabras:= TStringList.Create;
 try
   Palabras.CommaText:= 'esto es una prueba';

  for i:=0 to Palabras.count-1 do begin
     ShowMessage(Palabras[i]);
  end;  
 finally
   Palabras.Free;
 end;

O por ejemplo si queremos mostralas en un memo (o cualquier otro componente que almacene lineas):

Memo1.Lines.CommaText:= 'esto es una prueba';

Salud2 !!!