Unit Unit1;

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

Type
TForm1 = Class(TForm)
Procedure start(var msg:Twmcreate); message WM_CREATE;
Private
{ Private declarations }
Public
{ Public declarations }
End;

Var
Form1: TForm1;

implementation

{$R *.dfm}

procedure Tform1.start;
Begin
showmessage('detta sker när formen startar');
End;
End.