загрузка картинки в image Delphi

[Дмитрий8]

Добры люди подскажите чего я такого натворил, что у меня перестало ровно рисоваться на image : Поясню
рисую круг

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Form4.Label5.Caption:='X='+IntToStr(X) ;
A:=X;
Form4.Label4.Caption:='Y='+IntToStr(Y) ;
B:=Y;
Form4.Label2.Caption:='X='+IntToStr(X) ;
Form4.Label3.Caption:='Y='+IntToStr(Y);
end;

procedure TForm1.Image1Click(Sender: TObject);
 var i,x1,y1,x2,y2,r:integer;
 s,koor1,koor2:String;
begin
r:=StrToInt(Form4.Edit1.Text);
if Form4.SpeedButton1.GroupIndex =2 then
 if Form4.Edit1.Text='0' then
 ShowMessage('введите радиус')
 else
   begin
  x1:=A-r;
  y1:=B-r;
  x2:=A+r;
  y2:=B+r;
  Form1.Image1.Canvas.Ellipse(x1,y1,x2,y2);
   end;

все ровно рисуется пока не загружаю картинку в image после этого круг начинает смещаться относительно мышки на 15px примерено (причем заметил если у image поставить Center=true то смещаеться примерно относит коорд(300;0), а если false то относит начала координат(в этих точках рисует ровно как надо)).
вот так загружаю картинку для рисования

procedure TForm1.N22Click(Sender: TObject);
var FName: string;
  jpg:TJPEGImage;
  bmp: TBitmap;
begin
  if OpenPictureDialog1.Execute then
   begin
   FName := OpenPictureDialog1.FileName;
   Image1.Picture.LoadFromFile(FName);
   bmp := TBitmap.Create;
   bmp.Assign(Image1.Picture);
   Form1.Width:=Image1.Picture.Width;
   Form1.Height:=Image1.Picture.Height;

   end;
end;

Причем раньше все работало ровно ((( гдето сломал и не вижу где
Поможите уже 3 дня потерял !

[evg_m]

вместо

   Form1.Width:=Image1.Picture.Width;
   Form1.Height:=Image1.Picture.Height;

попробуй

   Form1.ClientWidth:=Image1.Picture.Width;
   Form1.ClientHeight:=Image1.Picture.Height;

[Дмитрий8]

поменял не помогло рисовать круг точно, кстате хочу заметить что пока картинка не загружена то круг рисуеться ровно в точке клика!

[Дмитрий8]

я разобрался поставил у image свойства align=alcustom а было alclient в этом и была проблема смещения ((( PS ВСЕМ СПАСИБО