[Fonoman]

в Object TreeView щёлкни 2 раза по Form1 и откроется окошко
с
procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.