[Cristhor1982]

Al final que fue lo que hice,

Agregue un Edit, un timer y seria

el edit hace esto

Código Delphi [-]
procedure TFR_SelectorInOut.Timer1Timer(Sender: TObject);
var
  DC: THandle;    // display context
  Bits: Integer;    // bits per pixel
  HRes: Integer;    // horizontal resolution
  VRes: Integer;    // vertical resolution
  fre: Integer;    // refresh rate
begin
  DC := GetDC(Handle);
  Bits := GetDeviceCaps(DC, BITSPIXEL);
  HRes := GetDeviceCaps(DC, HORZRES);
  VRes := GetDeviceCaps(DC, VERTRES);
  fre := GetDeviceCaps(DC, VREFRESH);
  // Show Current Resolution
  TX_TamPan.Text := Format('%d bit, %d x %d', [Bits, HRes, VRes]);
end;

y en el evento change de TX_TamPan (...el Edit),

Código Delphi [-]
 Left:=(Screen.Width-Width)  div 2;
  Top:=(Screen.Height-Height) div 2;

Fue lo que se me ocurrio, bueno por lo menos sali del paso...Chaus