Program uden units og forms

Hej,

Jeg er ved at lave et program som  kopierer nogle filer, og dette skulle gerne foregå i baggrunden så brugeren ikke bliver generet af det.
Jeg har så læst et sted at man kan skrive alt sin kode i .dpr filen og helt undlade units og forms. Jeg har ikke noget imod at bruge en unit, men der skal ikke være nogen forms.

Jeg kan imidlertid ikke få det til at virke med procedures og jeg kender ikke til rækkefølgen af koden. Jeg får en fejlmeddelselse: "Identifier expected but 'PROCEDURE' found" samt et par andre stykker.

Her er hvad jeg indtil videre er nået frem til:

program Project1;

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  procedure FileSearch(const PathName, FileName: string);
  function FormatInt(i_value, i_width: Integer): String;
end;

var
  i_NewFileName: Integer;
  s_UserName, s_FilePath: String;
  Size : Cardinal;
  SearchRec: TSearchRec;

{$R *.RES}

begin
procedure FileSearch(const PathName, FileName : string);
..noget kode..
end;

function FormatInt(i_value, i_width: Integer): String;
begin
..noget kode..
end;

..Hovedprogramkode..

  Application.Terminate;

end.