unit start; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TStartForm } TStartForm = class(TForm) Label1: TLabel; procedure FormCreate(Sender: TObject); private public end; var StartForm: TStartForm; implementation {$R *.lfm} { TStartForm } procedure TStartForm.FormCreate(Sender: TObject); begin end; end.