unit connect; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs; type TConnectform = class(TForm) private public end; var Connectform: TConnectform; implementation {$R *.lfm} end.