Vérifier si un fichier existe

procedure TForm1.Button1Click(Sender:TObject);
begin
if FileExists('c:oot.ini') then
begin
ShowMessage('le fichier existe !');
end;
end;