[Black Raider]

Вот так работает, не видя ваш код трудно понять где ошибка

Код:

procedure TForm1.Button2Click(Sender: TObject);
var rt,rt1:real;
begin
  DBEditRead(rt,rt1);
  label1.caption :=floattostr(rt);
  label2.caption :=floattostr(rt1);
end;

Код:

procedure TForm1.DBEditRead(out DownTemp,UpTemp: real);
begin

UpTemp:=strtoFloat(DBEditUpThresold.Text);
DownTemp:=strtoint(DBEditDownThresold.Text) ;

end;