Originalmente delphi pone esto
program Limpieza;
{$APPTYPE CONSOLE}
uses
SysUtils, Messages, Variants, Classes, Controls,
Dialogs, StdCtrls;
function FindFile(const filespec: TFileName; attributes: integer = faReadOnly Or faHidden Or faSysFile Or faArchive): TStringList;
var lista: TStringList;
begin
{ TODO -oUser -cConsole Main : Insert code here }
lista := FindFile('c:\borrame\')//ParamStr(1)+'*.*');
if lista.Count=0 then ShowMessage('ˇNo existen ficheros!');
Todo lo que tienes que hacer es quitar la linea {$APPTYPE CONSOLE} y listo