Om en fil eksisterer, hvordan?

Hey

Jeg har sat med denne kode i et stykke tid nu, men jeg kan ikke få den til at tjekke om filen eksisterer Lidt irriterende for det vil sgu bare ikke som jeg vil.

Kode 

procedure PGemTekst(para: string);

     {
      En funktion som tjekker efter om der er skrevet flere ord i memoet end i den gemte fil
     }
     function tjekOrd(tekst: string) : string;
     begin

     end;

     {
     Funktion som laver et gem
     }
     function gemTekst(tekst: string) : string;
     begin

          form1.memo1.lines.savetofile(form1.opendialog1.filename);
          filNavn:=form1.opendialog1.filename;
          form1.caption:=filNavn;

     end;

     {
     Funktion som laver en gem som
     }
     function gemsomTekst(tekst: string) : string;
     begin

          form1.savedialog1.filename:=form1.opendialog1.filename;

          if form1.SaveDialog1.execute then
          begin
               form1.opendialog1.filename:=form1.savedialog1.filename;
               form1.Memo1.Lines.savetofile(form1.savedialog1.filename);
          end;

          filNavn:=form1.SaveDialog1.filename;
          form1.caption:=filNavn;
     end;

     {
      funktion som tjekker efter om filen eksisterer
     }
     function EksistererFil(tekst: string) : string;
     begin

     if fileExists(form1.opendialog1.filename)= true then
     begin
          gemTekst('tekst1');
     end
     else
     begin
          gemsomTekst('tekst1')
     end;


     end;

begin {Begynder procedure gemTekst}

     {her kalder jeg så de forskellige funktioner}

     if para = 'gem' then
     begin

          {Jeg tjekker også lige efter om filen findes hvis den ikke gøre det skal gemsomTekst funktion kaldes ellers skal den bare gemme}
          EksistererFil('tekst1');
          {Her gemmer jeg bare teksten med funktion gemTekst}


     end
     else if para = 'gemsom' then
     begin

          {Her er teksten ikke gemt (brugeren har ikke gemt under et filnavn) funktionen gemsomTekst kaldes}
          gemsomTekst('tekst1');
     end
     else if para = 'exit' then
     begin

          {Først tjekker jeg om filen findes, hvis ikke skal gemsomTekst funktionen kaldes}

          {Her kalder jeg funktionen tjekOrd. Hvis der er flere ord i det åbne memo end i filen som der er gemt under så skal gemsomTekst() kaldes}

     end;


end; {PGemTekst}

Mit store problem ligger faktisk i disse linjer

Kode 

     function EksistererFil(tekst: string) : string;
     begin

     if fileExists(form1.opendialog1.filename)= true then
     begin
          gemTekst('tekst1');
     end
     else
     begin
          gemsomTekst('tekst1')
     end;

Jeg har prøvet så meget forskelligt, men jeg kan bare ikke få lortet til at virke. Øv øv.

Det eneste jeg vil er at få den til at tjekke om den fil som er åben allerede eksisterer, hvis den gør det skal den bare gemme oven i teksten, men hvis den ikke eksisterer så skal den komme med en "gem som" boks hvor man kan skrive et filnavn osv Men jeg kan bare ikke få lortet til at virke så jeg håber at i hoveder her ved hvordan den skal twistes!!



mxs @ http://poet.frac.dk
Slamkodning for fred

Kode 

    function EksistererFil(tekst: string) : string;
     begin

     filNavn := form1.savedialog1.filename;
     if filNavn <> '' then
     begin
          gemTekst('tekst1');
     end
     else
     begin
          gemsomTekst('tekst1')
     end;


     end;