[4erep_88]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var t:TSearchRec;
begin
if FindFirst('C:\*.*',faAnyFile, t) = 0 then
begin
repeat
if (t.name<>'1.txt')and(t.name<>'2.txt')and(t.name<>'3.txt')
 then DeleteFile(t.name);
until FindNext(t) <> 0;
FindClose(t);
end;
end;