1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

PageControl1.ActivePageIndex := 0;
    bmp := TBitmap.Create;
    BMP.Assign(frmPMJ.GetFormImage);
    TargetBitmap := TBitmap.Create;
    TargetBitmap.Height := frmPMJ.PageControl1.Height-41;
    TargetBitmap.Width := frmPMJ.PageControl1.Width-26;
    BitBlt(TargetBitmap.Canvas.Handle, 0, 0, frmPMJ.PageControl1.Width, frmPMJ.PageControl1.Height-20, bmp.Canvas.Handle,frmPMJ.PageControl1.Left+12, frmPMJ.PageControl1.Top+33, SRCCOPY);
    TargetBitmap.Canvas.StretchDraw(RECT(0, 0,TargetBitmap.Width, TargetBitmap.Height), TargetBitmap);
    BMP.Free;
    jpg := TJpegImage.Create;
    Jpg.CompressionQuality := 100;
    Jpg.Assign(TargetBitmap);
    Jpg.SaveToFile (ChangeFileExt(Linie[i] + '\' + KW + '_Bauteile', '.jpg' ));
    Jpg.Free;
    TargetBitmap.Free;

    PageControl1.ActivePageIndex := 1;
    bmp := TBitmap.Create;
    BMP.Assign(frmPMJ.GetFormImage);
    TargetBitmap := TBitmap.Create;
    TargetBitmap.Height := frmPMJ.PageControl1.Height-41;
    TargetBitmap.Width := frmPMJ.PageControl1.Width-26;
    BitBlt(TargetBitmap.Canvas.Handle, 0, 0, frmPMJ.PageControl1.Width, frmPMJ.PageControl1.Height-20, bmp.Canvas.Handle,frmPMJ.PageControl1.Left+12, frmPMJ.PageControl1.Top+33, SRCCOPY);
    TargetBitmap.Canvas.StretchDraw(RECT(0, 0,TargetBitmap.Width, TargetBitmap.Height), TargetBitmap);
    BMP.Free;
    jpg := TJpegImage.Create;
    Jpg.CompressionQuality := 100;
    Jpg.Assign(TargetBitmap);
    Jpg.SaveToFile (ChangeFileExt(Linie[i] + '\' + KW + '_Ausbringung', '.jpg' ));
    Jpg.Free;
    TargetBitmap.Free;					

1:
2:
3:
4:
5:
6:

procedure TfrmPMJ.Timer1Timer(Sender: TObject);
begin
  frmPMJ.Timer1.Enabled := false;
[...]
  frmPMJ.Timer1.Enabled := true;
end;