DBCC CHECKIDENT — Знающая схема?

Ваш код может быть намного проще. Когда вы решите, какую форму вы хотите сохранить, попробуйте использовать код, который я использую:

procedure SaveFormBitmapToBMPFile( AForm : TCustomForm; AFileName : string = '' );
// Copies this form's bitmap to the specified file
var
  Bitmap: TBitMap;
begin
  Bitmap := AForm.GetFormImage;
  try
    Bitmap.SaveToFile( AFileName );
  finally
    Bitmap.Free;
  end;
end;