Captura pantalla

[Delfino]

Le he puesto el siguiente codigo:

Código Delphi [-]
Visible := False;
Application.ProcessMessages;
Bmp := TBitmap.Create;
try
 Bmp.FreeImage; 
 Bmp.Width := GetSystemMetrics(SM_CXSCREEN);    //Screen.Width
 Bmp.Height := GetSystemMetrics(SM_CYSCREEN);   //Screen.Height
 BitBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, GetDc(0), 0, 0, SRCCOPY);
 Bmp.SaveToFile (ChangeFileExt(Application.ExeName,'.bmp'));
 finally
  Bmp.Free;                           
 end; 
Visible := True ;

Pero por desgracia lo hace correctamente solo la primera vez de su ejecucion, las siguientes veces muestra la ventana del programa no se pq, alguna idea?