program Project1;
uses
Forms,
extctrls,
Dialogs;
{$R *.RES}
type
TMyTimer = class(TTimer)
public
end;
var
tm: TMyTimer;
begin
Application.Initialize;
tm := tmytimer.create(application);
tm.Interval := 4000;
while true do
application.ProcessMessages;
end.