ben delphide bir oynatıcı yapıyorum ortaya al tuşuna basıldığında progressbarın maximumdan 2 bolerek kalanın progressbara eşitlenmesi ve mediaplayerınde pozisyonun progresbara eşit olmasını istedim ama bolme işleminde hata verdi sorun nerde

var
s1,s2,s:integer;
a:string;
begin
mediaplayer1.Pause;
a:='2';
s1:=(bar.Max);
s2:=strtoint(a);
s:=(((strtoint(s1 / s2))));
bar.Position:=s;
bar.Position:=mediaplayer1.Position;
mediaplayer1.Play;
timer1.Enabled:=true;
timer2.Enabled:=true;
end;
__________________