[Delphi] zamykanie...

Jestem nowicjuszem w Delphi. Mam dwa proste pytania.
Cieszyłbym się gdybyście wysłali przykładowy kodzik.

1. Nie wiem jak sprawdzić, czy plik istnieje na dysku:
   w pascalu robiłem to tak:

assign (plik,'nazwapliku');
{$I-}
reset (plik);
{$I+}
if IOResult&lt&gt0 then write ('pliku nie ma')
else write ('plik już jest');

albo wyszukiwałem plik za pomocą findfirst, findnext, lecz ani jedno, ani drugie w delphi nie działa :[[ .

2. Komunikaty to dla mnie nowość. Nie wiem co mam napisać by program przy zamykaniu zapyał się czy chce się zakończyć jego działanie.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlgPos('Czy na pewno chcesz zamknąc program?', mtcustom, [mbYes, mbNo], 0, -1, -1)
=7 then
{i co tu mam napisać??? hmm...};
end;

Kody źródowe mogą zawierać błędy (nie sprawdzałem).

Za pomoc wielkie dzięki
Kamil Kopeć

Więc tak:

1. W Delphi :O istnieje funkcja FileExists i to ona sprawdza czy plik istanieje np:
   if fileexists('autoexec.bat') then ShowMessage('Autoexec istnieje'); ;)
2. A co do tego to Ja bym to zrobił tak:
   case Application.MessabeBox('Czy zamknąć program ?','Uwaga',MB_YesNO+MB_Icon_Information) of
   IDYES: Close;
   IDNO: {i tu zawsze mam problem co zrobić ,żeby się nie zamknęła to już sobie pomyśl}
   end;
   No to tyle ... :-) --Kto pyta nie błądzi ...

w Form1.onclose:
begin
Action:=caNone;
IF Application.messageBox('Czy na pewno zakończyć?','???',mb_yesno)=IDYes
then halt(0) {powinno byc Application.Terminate ale masz nawiazanie do pascala ;) }
end;--||===