val(real)

I hjælpen er der et eks. med integer, hvorfor jeg fik denne til at fungere:
function weight_of_age(I : integer) : real;
begin
  weight_of_age := (2.3*I) + 7.5;
end;

procedure TForm1.Button1Click(Sender: TObject);
var

I,Code: integer;
x:string;
begin
  val(edit1.text,I,code);
if code <> 0 then
messagedlg ('Error at:' +Inttostr(code),mtwarning ,[mbok] ,0)
else
str(weight_of_age(I):3:1,x);
label1.caption:=x;

end;

Men jeg har ikke helt kunnet dreje den til at få reals ind.Er der mon nogen for hvem det ikke lige er noget større arbejde at give et par vink.

ja, det lykkedes vist selv at løse det ?.
function bloodvol_of_weight(V : real) : real;
begin
  bloodvol_of_weight := (2.3*V) + 7.5;
  end;

procedure TForm1.Button2Click(Sender: TObject);
var
V:real;
code:integer;
st:string;
begin
val(edit1.text,V,code);

if code <> 0 then
messagedlg ('Error at:' +Inttostr(code),mtwarning ,[mbok] ,0)
else
str(bloodvol_of_weight(V):3:1,st);
label2.caption:=st;

end;