[HidenngRuz]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,x,y:real;
begin
Edit1.Text:=FloatToStr(i);
Edit2.Text:=FloatToStr(y);
Label1.Caption:=FloatToStr(i-y);
end;

end.

Ввожу числа,нажимаю на кнопку вылетает не нормальные числа,а какие-то непонятные.