переменные в лазарус

var xxx, kot, otv: real;
begin
   xxx:=StrToFloat(Edit1.Text);
   kot:=StrToFloat(Edit2.Text);
   otv:=xxx+kot;
   Edit3.Text:=FloatToStr(otv);