- program Copier;
- uses
- Forms,
- ucopy in 'ucopy.pas' {Form1},
- threadcopy in 'threadcopy.pas';
- {$R *.RES}
- begin
- Application.Initialize;
- Application.Title := 'copy procedure for <temp>~emf*.tmp to <temp><count>.emf';
- Application.CreateForm(TForm1, Form1);
- Application.Run;
- end.