Du kannst einfach alle Großbuchstaben im Text durch einen Großbuchstaben mit vorgestelltem Zeilenumbruch ersetzen
:
Delphi-Quellcode:
var
tmp: String;
i: Integer;
begin
tmp := Memo1.Text;
for i := Ord('A') to Ord('Z') do
tmp := StringReplace(tmp, Chr(i), #13#10 + Chr(i), [rfReplaceAll]);
Memo2.Text := Trim(tmp);