[German]

Uses SysUtils

...

procedure EliminaCarpeta(Carpeta:String);
var 
I: Integer;
DirInfo: tSearchRec;
begin
  I := FindFirst(Carpeta+'*.*', faAnyFile, DirInfo);
  while I = 0 do
  begin
    DeleteFile(pChar(Carpeta+DirInfo.Name));
    I := FindNext(DirInfo);
  end;
  FindClose(DirInfo);
  RemoveDir(Carpeta);
end;

EliminarCarpeta('C:\Mis documentos\Temporal\');

Salu2.