1:
2:
3:
4:
5:
6:
7:
8:

var Geschwindigkeit, Strecke: Real;
Fahrtzeit: TDateTime;

procedure TFeuerwehrfahrzeug.Fahren;
begin                     //Hier probiere ich, die Zeit für die Strecke zu berechnen
Geschwindigkeit:=IntToFloat
Strecke := IntToFloat
Fahrtzeit := Geschwindigkeit div Strecke;					

1:

Strecke := strtofloat(edxxx.text);					

1:

Strecke := strtoint(edxxx.text);					

1:

Geschwindigkeit1 := IntToFloat(Geschwindigkeit);					

1:
2:
3:
4:

Var Geschwindigkeit: Integer;
    Fahrtzeit, Strecke, Geschwindigkeit1: Real;
//Lösung Problem// Geschwindigkeit1 := Geschwindigkeit
Fahrtzeit := Strecke/Geschwindigkeit