Nie rozumiem zapisu !! [HandleAllocated]

mam pytanie nie rozumiem tego zapisu procedury a zwłaszcza końcowej części:

procedure TForm1.Cofnij1Click(Sender: TObject);
begin
with RichEdit1 do
if <font color="red">HandleAllocated then SendMessage(Handle, EM_UNDO, 0, 0);</span>

end;

prosze o pomoc w zrozumieniu..

Z tym licznikiem dałem sobie radę tak :

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
StatusBar1.SimpleText:=inttostr(Length(RichEdit1.Text));
end;

Jeżeli RichEdit1 ma przypisany uchwyt (co znaczy: istnieje w systemie jako okno, a nie tylko jako komponent) to wyślij do niego komunikat undo (cofnięcie ostatniej operacji).