MESSAGEBOX

[Änabanäna]

Guten Tag,
ich brauch dringend Hilfe zur MessageBox! Und zwar hab ich versucht, dass sich eine MessageBox öffnet, wenn man den richtigen Namen in ein edit-Feld schreibt und anschließend auf einen Button klickt.
Eine MessageBox hab ich schon und die funktioniert auch, nur bei der anderen funktioniert das nicht.
Hier mein Quelltext:

Code:

procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
if edt_ergebnis.Text ='' then exit;
begin
Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK);
exit;
end;
begin
if edt_name.Text ='Heidi' then exit;
begin
Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
exit;
end;

Bei der letzten MessageBox passiert gar nichts.

Vorweg, ich hab keine Ahnung von Delphi und muss das für die Schule machen!
Schon mal Danke im Vorraus