Memo.Lines.SaveToStream geht nicht

[ol1uw]

Versuchs mal so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i:TMemoryStream;
begin
i := TMemoryStream.Create;
Memo1.Lines.SaveToStream(i);
i.Position:=0;
Memo2.Lines.LoadFromStream(i);
i.Free;
end;

Gruß Uwe