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.