[engwar]

procedure TForm1.Button1Click(Sender: TObject);

begin
Edit5.text:= floattostr((Strtofloat(Edit1.text)*(1.013- 0.0267123*strtofloat(edit3.text)));
end;

end.

x1:=Edit1.Text; x2:=Edit3.Text; »

а тут ты пытаешься числовой переменной присвоить строковое значение