procedure TForm1.FormCreate(Sender:TObject);
var i,L,
    maxW,maxH:Integer;
begin
    maxW := 1;
    maxH := 1;
    L := self.ControlCount-1;
    for i:=0 to L do begin
        with self.Controls[i].BoundsRect do begin
            if Right>maxW then maxW := Right;
            if Bottom>maxH then maxH := Bottom;
        end;
    end;
    self.ClientWidth := maxW;
    self.ClientHeight := maxH;
end;