[YVitaliy]

а так не катит? :

Код:

procedure TForm1.FormResize(Sender: TObject);
begin
  if ClientHeight<=(Panel1.Constraints.MinHeight) then begin
     panel1.Align:=alTop;
  end else begin
     panel1.Align:=alClient;
  end;
end;

И без скроллбокса.