Fórum image1.position quot;on center in windowquot; via codigo #223896

estou criando a rotina de zoom e ela está assim:
-----------------------------------------------------------------------------
// zoom+
-----------
procedure TPrincipal.Btn_zoom1Click(Sender: TObject);
var x,y:integer;
begin
Image1.Proportional:=true;
x:=image1.Width+100;
y:=Image1.Height+107;
Image1.Width:=(x);
Image1.Height:=y;
Label_Status.Caption:=´Tamanho de Zoom:..[´+inttostr(Principal.Image1.Width)+´ X ´+inttostr(Principal.Image1.Height)+´]´;
end;
----------------------------------------------------------------------------
preciso dizer para o image1:

1. ficar na position horizontal = center in window
2. ficar na position vertical = center in window

Obs. mas isso tem que ser via código, para a imagem em tempo de execussao sempre ficar no centro do meu formulario...

se alguem puder me ajudar, agradeço!!!!
[]´s