[aams01]

Gracias por Todo

Soy un mentiroso de lo peor ya funciona con una modificacion

Left = (Screen->Width - Width)/2;
     Top  = (Screen->Height - Height)/2;
	AnimateWindow( Handle, 400, AW_BLEND);

con solo retirar el if, y en modo diseño poner la position = poDesigned