вопрос насчёт % и как его решить

[SW00001]

Здравствуйте. У меня вот возникла одна проблемка, кто может помогите пожалуйсто.
Нужно расчитать процент успеваемости студентов, но у меня делфи постоянно ругается на проценты, а именно на (*100%/с) в формуле w:=((a*d)+(b*e))*100%/c; как эту проблему решить?
Вот код целиком.
Код работает без знака %...вся загвоздка именно в нём.

procedure TForm1.Button1Click(Sender: TObject);
var A,B,C,D,E: integer;
W: Extended;
begin
A:=5;
B:=4;
D:=StrToInt(Edit1.Text);
E:=StrToInt(Edit2.Text);
C:=StrToInt(Edit3.Text);
W:=((A*D)+(B*E))*100%/C;
Label1.Caption:=FloatToStr(W)
end;

P.S.Ещё если можно помогите с выводом ответа в Label1 (вывод ответа в % должен быть) и если можно выложите исправленый код
Зарание спасибо.

[BARNEY]

procedure TForm1.Button1Click(Sender: TObject);
var A,B,C,D,E: integer;
W: Extended;
begin
A:=5;
B:=4;
D:=StrToInt(Edit1.Text);
E:=StrToInt(Edit2.Text);
C:=StrToInt(Edit3.Text);
W:=((A*D)+(B*E))*100/C;
Label1.Caption:=FloatToStr(W)+'%';
end;