verificar se arquivo existe?

Eu coloquei essa função num botão que quando vc aperta ele verifica se um arquivo existe, se naum existir aparece uma mensagem alertando.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If not(fileexists(´c:\windows\nuvens.bmp´)) then Showmessage(´Arquivo inexistente´);
end;

O código em si é esse

If not(fileexists(´c:\windows\nuvens.bmp´)) then Showmessage(´Arquivo inexistente´);

Esse outro procura um arquivo que tenha seu caminho especificado em uma edit

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If not(fileexists(edit1.text)) then Showmessage(´Arquivo inexistente´);
end;

Caso vc naum tenha o caminho tb existe um código para procurá-lo

procedure TForm1.DirList( ASource : string; ADirList : TStringList );
var
SearchRec : TSearchRec;
Result : integer;
begin
Result := FindFirst( ASource, faAnyFile, SearchRec );
if Result = 0 then
while (Result = 0) do
begin
if (SearchRec.Name+´ ´)[1] = ´.´ then
{ Se pegou nome de SubDiretorio }
begin
Result := FindNext( SearchRec );
Continue;
end;
ADirList.Add( SearchRec.Name );
Result := FindNext( SearchRec );
end;
FindClose( SearchRec );
ADirList.Sort;
end;

utilize assim

procedure TForm1.Button1Click(Sender: TObject);
var
contador: Integer;
lista: TStringlist;
begin
lista:= TStringlist.create;
DirList(´C:\*.*´, lista);
end;

Espero ter ajudado.

RESUMINDO:

If FileEXist(´C:\lixo.txt´) then
Showmessage(´tem´);