[Casimiro Noteví]

Más o menos así:

Código Delphi [-]
mftp.ChangeDir( cDirName );
mftp.List;
for iX:=0 to mftp.DirectoryListing.Count-1 do
begin
  cFile := mftp.DirectoryListing[iX].FileName;
  if cFile<>'' then
    mftp.Delete( cFile );
end;