(Resolvido) Excluir arquivo especifico na pasta

[Alberto Mota]

Prezados colegas, gostaria dse excluir um arquivo já existente na pasta, os demais ficam.

No codigo abaixo todo o conteudo da pasta é excluido.

Desde já, obrigado

procedure TFrmBackup2.BitBtn2Click(Sender: TObject);

var

SR: TSearchRec;

I: integer;

begin

I := FindFirst('C:\Vendas\Backup\*.*', faAnyFile, SR);

while I = 0 do begin

if (SR.Attr and faDirectory) <> faDirectory then

if not DeleteFile('C:\Vendas\Backup\' + SR.Name) then

ShowMessage('Não consegui excluir C:\Vendas\Backup\' + SR.Name);

I := FindNext(SR);

end;

end;

[Alberto Mota]

[Resolvido]

Consegui resolver.

Adaptei o seguinte codigo:

Windows.DeleteFile('C:\Vendas\vendas.bak');