Funktion für proportionales Seitenverhältnis

[Matze]

Bei mir geht das:

Code:

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

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

Gruß Matze