{je vous propose ici une alternetive au code de Ni69}
procedure TForm1.Button1Click(Sender: TObject);
begin
{ fait la copie d'écran}
keybd_event(VK_SNAPSHOT , 0, 0, 0);
keybd_event(VK_SNAPSHOT , 0, KEYEVENTF_KEYUP, 0);
{Traite les messages}
Application.ProcessMessages;
{Teste le format du presse papier}
if ClipBoard.HasFormat(cf_Bitmap) then
begin
{et si le format existe on l'affiche dans un TImage}
Image1.Picture.Bitmap.Assign(ClipBoard);
{et on vide le presse papier pour la capture suivante
ce qui permet d'être certain d'avoir la bonne capture}
ClipBoard.Clear;
end;
end;