Integer and Extended,в чем дело?

[Ciberal]

Нужно нарисовать линию по центру изображения на форме... Вот что написал:
procedure TForm1.Button12Click(Sender: TObject);
var p:Tpoint;
begin
P.x:=Image1.Width;
P.Y:=image1.Height;
With image1.Canvas do
begin
MoveTo(P.X/2,0);
LineTo(p.X/2,p.y)
end;
end;

Кричит что Incompatible types: 'Integer' and 'Extended'. Честно говоря эта штука задрала... Заранее спасибо.
Просьба не открывать мне Америку по поводу моих "глубоких" познаний в программировании -_-

[Nester]

а если так
MoveTo(Round(P.X/2),0);
LineTo(Round(p.X/2),p.y)

[Alter]

Координаты - целочисленные величины! Используйте для округления: Round(); Trunc();
Здесь можно так:

MoveTo(P.X div 2, 0);
LineTo(p.X div 2, p.y);

[Ciberal]

Весьма благодарен