Procedure mit Rückgabe wert schreiben

[tommie-lie]

Alternativ als Funktion (just to be sure):

Delphi-Quellcode:

function gibmirnezahl: Real;
begin
  Result := 5.5;
end;

procedure Execute;
  var MeinReal;
begin
  MeinReal := gibmirnezahl;
end;