begin
   With Image1.Canvas do begin  
   MoveTo(Image1.Width div 2,0);
   LineTo(Image1.Width div 2,Image1.Height);
   MoveTo(0,Image1.Height div 2 );
   LineTo(Image1.Width,Image1.Height div 2);
end;