Text im Memo markieren?

[malo]

Ja, wie kann man einen Text markieren? Ich will nämlich den gesamten Text in einem Memo markieren. Ich hab auch schon gesucht und herausgefunden, dass es mit SelLength geht, aber das funktioniert irgendwie nich richtig

Mein code:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo2.SelStart := 1;
  Memo2.SelLength := Length(Memo2.Text);
end;

Nur der Text wird nicht markiert

Muss man das vielleicht ganz anders machen?