Timer ohne Form

[Jan]

Vielleicht mach ich ja wirklich was falsch, hier der code der unit:

Delphi-Quellcode:

unit main;

interface

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

 var
  MyTimer: TTimer;
implementation

{$R *.DFM}

uses STNDGenPlug;

procedure timerevent(sender:tobject);

var
handle:hdc;
title:string;
begin
handle:=getdc(0);
settextcolor(handle, clyellow);
SetBkmode(handle, TRANSPARENT);
title := strpas(Pointer(sendmessage(Plugin.HWNDparent, wm_user,
                             SendMessage(Plugin.HWNDParent, wm_user, 0, 125),212)));
textout(handle,100,100,pchar(title),length(title));
releasedc(0, handle);
end;

begin


  MyTimer := TTimer.Create(nil);
  MyTimer.Enabled := True;
  MyTimer.Interval := 500;
  @MyTimer.OnTimer := @timerevent;



end.

Gruß
Jan