Bei mir gab es da noch Darstellungsfehler, deshalb die kleine Veränderung:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
S: String;
begin
S:= Memo1.Text;
Memo1.Clear;
for i:= 1 to Length(S) - 1 do
Memo1.Lines.Add(S[i]);
end;
Mist, zu spät.