Так:
Код:
procedure TForm1.btn1Click(Sender: TObject);
begin
pnl1.Caption := IntToStr(Round((((StrToFloat(Edt1.Text) - StrToFloat(Edt2.Text)) * StrToFloat(Edt3.Text) * 65.4) / 63.5) * 1.28));
end;
только возможна ошибка, если вместо запятой поставить точку в Edit-е. Нужно проверять ввод символов в Edit и, если точка менять на запятую.