[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.

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

[Bargest]

И чему равно i и y? Где им что-то присваивается?
Все правильно, они равны случайному числу.

[NumLock]

внимательно смотри на предупреждения компилятора.