обработка событий из консоли!

[nereus]

Общая проблема:
- можно ли в Delphi из консольного приложения вызывать события каких-либо компонентов? Если можно, то как?

Локальная проблема:
- как запустить событие OnTimer из TTimer из консоли, какие параметры нужно передовать?

Далее следует пример запуска таймера в программе имеющей форму, а как сделать тоже самое, но из консоли???

// *** НАЧАЛО ***

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure fun();
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=5000;
fun();
end;

procedure TForm1.fun();
begin
ShowMessage('Ok');
end;

end.

// *** КОНЕЦ ***