Form - fazer form menor do que 112 pixels

{ 

  In order to allow very small windows, 

  you need to override the default behavior for Windows message WM_GETMINMAXINFO. 

  This message is sent to your window by the OS in order to find out 

  the minimum and the maximum allowed window size. 

  You can do this by adding this method procedure to your form: 

} 

private 

  procedure GetMinMaxInfo(var Msg: TWMGETMINMAXINFO); message WM_GETMINMAXINFO; 

  { Private declarations } 

public 

  { Public declarations } 

end; 

var 

  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.GetMinMaxInfo(var Msg: TWMGETMINMAXINFO); 

begin 

  inherited; 

  with Msg.MinMaxInfo^ do 

  begin 

    ptMinTrackSize.X := 0; // min. Width 

    ptMinTrackSize.Y := 0; // min. Height 

  end; 

end; 

procedure TForm1.FormCreate(Sender: TObject); 

begin 

  { no systemmenu } 

  BorderIcons := BorderIcons - [biSystemMenu]; 

  { set the form's width & height } 

  Width := 80; 

  Height := 60; 

end;