Funktion für proportionales Seitenverhältnis

[Matze]

Übrigens, so ist der Code besser:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Faktor: extended;
    neue_Breite: integer;
begin
  Faktor:=400/800;
  neue_Breite:=round(Faktor*600);

  Edit2.Text:=IntToStr(neue_Breite);
end;