Скрин Формы

[Sascha]

Создайте форму и разместите на ней одну кнопку. По нажатию этой кнопки и будут происходить все действия.

procedure TForm1.Button1Click(Sender: TObject);
var
  b: TBitmap;
  i: integer;
begin
  i := 1; // Устанавливаем счетчик
  b := TBitmap.Create(); // Создаем объект типа  TBitmap
  b.Width := Form1.ClientWidth; // Устанавливаем ширину изображения
  b.Height := Form1.ClientHeight; // Устанавливаем высоту изображения
  b.Canvas.CopyRect(Rect(0, 0, b.Width, b.Height), Form1.Canvas,
    Form1.ClientRect);    // Копируем канву формы в наш TBitmap
  while FileExists(InttoStr(i) + '.bmp') do       // Генерируем уникальное имя
    inc(i);
  b.SavetoFile(InttoStr(i) + '.bmp');             // Сохраняем картинку
  b.Free;
end;