Programmation avec Delphi

Bonjour, je cherche a faire un calcule, afin d'afficher un résultat qui peut éventuellement contenir des virgule.
Cependant quand le résultat contien une virgule tel que 1,44 mon programme me renvoi 1 si c'est 12,546666 le programme me renvoi 12 !

Je joint la partit du code qui sert a faire le calcule:

procedure TForm2.calcul(Sender: TObject);
var
valeur:String;
resultat:Integer;
begin
valeur:=form1.Edit1.Text;
resultat:=(StrToInt(valeur)*12) div 100;
form2.Caption:=form1.caption;
showmessage(IntToStr(resultat));
end;

Merci d'avance pour vos réponses.