Problem bei Größenanpassung

[Fussel9]

Hallo, ich wollte das sich Komponenten meines Programms proportional zur Bildschirmgröße verhalten...

dazu habe ich folgenden Quelltext:=

Delphi-Quellcode:

procedure TFormMain.FormPaint(Sender: TObject);
var temp: Integer;
begin
  ShowMessage('');
  PConsole1.Width:=round((self.Width / 800) * PConsole1.Width);
  PConsole1.Height:=round((self.Height / 600) * PConsole1.Height);
  PConsole2.Width:=round((self.Width / 800) * PConsole2.Width);
  PConsole2.Height:=round((self.Height / 600) * PConsole2.Height);
  temp:=PConsole1.Left;
  PConsole1.Left := round((self.Width / 2)-(PConsole1.Width / 2));
  PConsole2.Left:=PConsole2.Left+(PConsole1.Left-temp);
end;

durch das Show Message habe ich mehr oder minder zufällig folgendes entdeckt: (siehe Anhang)
die Methode wird 4 Mal aufgerufen und jedesmal wird das pannel größer... bis es den ganzen Bereich füllt...

Woran liegt das?
Hab ich irgendwo nen Fehler... sieht den jemand?