[Electronic_Arts]

function ClearDir( Dir: string ): boolean;
var
isFound: boolean;
sRec: TSearchRec;
begin
Result := false;
ChDir( Dir );
if IOResult <> 0 then
begin
ShowMessage( 'Не могу войти в каталог: ' + Dir );
Exit;
end;
if Dir[Length(Dir)] <> '\' then Dir := Dir + '\';
isFound := FindFirst( Dir + '*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
if ( sRec.Attr and faDirectory ) = faDirectory then
begin
if not ClearDir( Dir + sRec.Name ) then
Exit;
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
if ( Dir + sRec.Name ) <> Dir then
begin
ChDir( '..' );
RmDir( Dir + sRec.Name );
end;
end
else
if not DeleteFile( Dir + sRec.Name ) then
begin
ShowMessage( 'Не могу удалить файл: ' + sRec.Name );
Exit;
end;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
Result := IOResult = 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ClearDir( 'C:\Documents and Settings\(как поставить сюда имя пользователя из Edit1.text)\Local Settings\Temp' );
end;