[ecfisa]

Hola jhonalone.

Intenta de este modo:

Código Delphi [-]
procedure TForm1.FormResize(Sender: TObject);
begin
  Image1.Left := (Width  - Image1.Width) div 2;
  Image1.Top  := (Height - Image1.Height) div 2;
end;

Saludos