If anweisung in Update geht nicht

[4typen]

Also ich habe mir mal die Updatefunktion im Forum angeschaut und haben eine Abfrage gemacht wenn ein Update vorhanden ist. Egal ob ich bei dem Dialog 'ja' oder 'Nein' drücke es wird immer beides ausgeführt. Erst zeigt er 'Das Update wurde heruntergeladen' inna Dialogbox an(bei then) und dann löscht er die heruntergeladene Datei(bei else).

Delphi-Quellcode:

procedure TForm1.StatusBar1Click(Sender: TObject);
var List: TStrings;
begin
  try 
    Datei := 'http://4typen.4t.funpic.de/update/update.txt';
    Ziel := 'update.txt';
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
    except
    ShowMessage('Ein Fehler ist aufgetreten!'); 
end;
begin 
List := TStringList.Create;
try
    List.LoadFromFile('update.txt'); 
    if List.Count>0 then
    Label2.Caption:=List[0];
finally
  List.Free;
end; 
end;
begin
if StrToInt(Label2.caption) > StrToInt(Label1.caption) then
begin
    if MessageDlg('Es ist ein Update vorhanden, wollen sie dieses herunterladen?', mtConfirmation, [mbyes, mbno], 0) = mrYes then
    Datei := 'http://4typen.4t.funpic.de/update/Generator_neu.exe';
    Ziel := 'Generator_neu.exe';
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
    MessageDlg('Das Update wurde heruntergeladen!', mtInformation, [mbOK], 0);
end
else
MessageDlg('Es ist kein Update nötig, die Software ist auf dem neusten Stand.', mtInformation, [mbOK], 0);
DeleteFile('update.txt');
DeleteFile('Generator_neu.exe');
end;
end;