Wenn OpenDialog "Abbrechen" dann soll nichtmehr passieren

[Äfan]

Delphi-Quellcode:

procedure TMainForm.ToolButton3Click(Sender: TObject);

begin
  If OpenDialog1.Execute then
    Memo.Lines.LoadFromFile(OpenDialog1.FileName);
    If OpenDialog1.FilterIndex = 1 then
     begin
      Memo.Highlighter := SynHTML;
      typ := 'htm';
    end;
    If OpenDialog1.FilterIndex = 2 then
     begin
      Memo.Highlighter := SynPHP;
      typ := 'php';
    end;
    ListView1.Clear;

HIER SIND DINGE VON DEN DU GARNICHTS WISSEN DARFST

Naja und des geht irgendwie net