Delphi - Domanda (forse) stupida

Devo fare un programma che necessita di due rettangoli neri sopra e sotto la finestra del programma.
Le altezze di queste due barre devono essere del 15% del Main (Ovvero la finestra).

Allora ho scritto questo codice:

procedure TMain.FormResize(Sender: TObject);
begin
//PANNELLO 1
Panel1.Width:= Main.width;
Panel1.height:= trunc((15*Main.Height)/100);
panel1.Top:= 0;
Panel1.Left:= 0;

//PANNELLO 2
Panel2.Width:= Main.width;
Panel2.height:= trunc((15*Main.Height)/100);
Panel2.Top:= Main.Height - Panel2.Height;
Panel2.left:= 0;

//BOTTONI
SpeedButton1.Top:=Panel1.Height;
SpeedButton2.Top:=Panel1.Height;
SpeedButton3.Top:=Panel1.Height;
SpeedButton4.Top:=Panel1.Height;

end;

Sembra una cosa sensata (per me) però non funziona, fa uno strano errore: Più è grande la finestra più si avvicina ad essere imn posiziona corretta, più la finestra è piccola più tende a sparire.

Allego il file per farvi capire meglio:

metti due forme rettangolari Tshape e fra le proprietà metti il check sulle proprietà di allineamento, dovrebbe andare ed adattarsi dinamicamente

Ho risolto: ho impostato l'align in bottom. Non avevo mai visto quella opzione. Grazie lo stesso

infatti quello ti dicevo di fare io