Warum geht "Memo1.Lines := Memo1.Lines" nicht?

[gfjs]

Hallo, Allerseits.

Warum führt die Zuweisung Memo1.Lines := Meno1.Lines dazu, dass die Strings im Memo verschwunden sind?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  str : TStrings;
begin
  ShowMessage(Memo1.Lines[0]);
  Memo1.Lines := Memo1.Lines; ShowMessage('Memo: '+Memo1.Lines[0]);
  str := Memo1.Lines; ShowMessage('str: '+str[0]);
end;

Nur das erste ShowMessage liefert die 1. Zeile des Memos, die beiden nächsten Aufrufe liefern nur noch einen Leerstring.

Auch "ListBox1.Items := ListBox1.Items" funktioniert nicht.

Wer kann mir das erklären?

Gruß Jürgen