Problema Resize in Ubuntu GNOME

[corradoventu]

Ho scritto una piccola applicazione in Lazarus (un orologio, bella novità)
i sorgente e l'eseguibile sono in
https://sites.google.com/site/corradoventu/home/software MyClok
ora quando faccio resize facendo click destro sulla barra in alto e scegliendo 'Resize' va tutto bene sia su Ubuntu 17.04 Unity che su 17.04 GNOME, mentre se faccio resize trascinando un bordo o l'angolo su Unity va tutto bene, su GNOME la finestra 'scappa' nell'angolo in alto a sinistra. Non so se aprire il problema su Ubuntu GNOME o su Lazarus. Nel dubbio comincio da qui.
Metto i sorgenti in allegato.  Suggerimenti?
grazie.
Edit: metto qui la procedura di resize per evitarvi di pescarla dallo zip o dal sito

Codice: [Seleziona]

procedure TForm1.FormResize(Sender: TObject);
begin
  If Form1.Height<hmin then Form1.Height:=hmin;
  If Form1.Height>hmax then Form1.Height:=hmax;
  If Form1.Width<wmin then Form1.Width:=wmin;
  If Form1.Width>wmax then Form1.Width:=wmax;

  If Form1.Height<>oldh then
   begin
    Form1.Width:=trunc(Form1.Height*2.5);
   end
  else
   begin
    Form1.Height:=trunc(Form1.Width/2.5);
   end ;
  oldh:=Form1.Height;
  oldw:=Form1.Width;

  Label1.Height:=Form1.Height;
  Label1.Width:=Form1.Width;
  Label1.font.size:=Trunc(Label1.Height/3);
end;