Warnmeldung beim Speichern einer Datei

[Technikus]

Hallo miteinander,
ich habe ein Problem mit der Darstellung und Ausführung eines Meldungsfensters(Delphi Prof.2005).
Folgender Sinn:
Ich möchte eine Datei speichern.
Wenn ich den Namen unter >>Dateiname<< eingetragen habe, sollte er überprüfen, ob der Name der Datei schon existiert.
Wenn ja, dann sollte er ein MessageDialog- Fenster mit Warnmeldung ausgeben und auf Bestätigung des JA- Buttons das Speichern durchführen.
Der Fehler wird schon in der Zeile "...=mrYes" angezeigt. Ich kann das Programm nicht starten. Wie muss ich den Code verändern?
Vielleicht hat von euch jemand einen hilfreichen Rat.

Delphi-Quellcode:

procedure TForm1.Button1_SpeichernClick(Sender: TObject);
var
    Messwert: TLeistung;
    i,anzahl: integer;
    Datei: TDatei;
    Dateiname: string;
begin
  Savedialog1.Execute;
  Dateiname:= Savedialog1.FileName;
  AssignFile(Datei,Dateiname);

  if FileExists(Dateiname) then
    MessageDlg
    ('Der Dateiname ist bereits vorhanden! Soll dieser überschrieben werden!',
     mtWarning,[mbYes,mbNo,mbCancel],0)=mrYes;
  begin
  Rewrite(Datei);
  anzahl:=StrToInt(Edit3_Eingabe_anzahl.Text);
  for i:= 1 to anzahl do
    with Messwert do
      begin
        nr:= i;
        Spannung:= StrToFloat(StringGrid1.Cells[1,i]);
        Strom:= StrToFloat (StringGrid1.Cells [2,i]);
        Write (Datei,Messwert);
        lx:= StrToInt (Edit1_lx_eingabe.Text);
      end;
    CloseFile (Datei);
  end;

Herzlichen Dank im Voraus
Technikus