SetFocus versagt nach ButtonClick

[s14]

Hallo,
ich kann das gerade nicht nachvollziehen, bie mir funktioniert folgender Code im ButtonClick Ereignis:

Delphi-Quellcode:

  Richedit1.Lines.Add('Text');
  Richedit1.SetFocus;