Wörter bei Großbuchstaben trennen

[omata]

Hier nochmal der selbe Vorschlag...

Delphi-Quellcode:

var
  tmp: String;
  z: char;
begin
  tmp := Memo1.Text;
  for z := 'A' to 'Z' do
    tmp := StringReplace(tmp, z, #13#10 + z, [rfReplaceAll]);
  Memo2.Text := Trim(tmp);
end;

Gruss
Thorsten