Problem mit DRUCKEN

[Memo]

Delphi-Quellcode:

procedure TForm1.Tdruck(Sender: TObject);
var
  r: TRect;
  i: Integer;
begin
  with Printer do
    begin
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
      BeginDoc;
      Canvas.Font.Style := Canvas.Font.Style + [fsBold];
      Canvas.Font.Size := 18;
      i := trunc(Pagewidth/2)-200;
      Canvas.TextOut( i,500, 'Test');
      Canvas.Font.Size := 14;
      Canvas.TextOut( 300,1000, druvar1);
      Canvas.TextOut( 300,(PageHeight - 1000), 'Datum: '+DateToStr(Date));
      Canvas.TextOut( 300,(PageHeight - 600), 'Verantwortlicher: ');
      Canvas.Font.Size := 8;
      i := trunc(Pagewidth/2);
      Canvas.TextOut( i,(PageHeight - 300), druvar2);
      Canvas.Brush.Color := clBlack;       <-- Darum tut es beim ersten aber nicht beim zweiten mal
      Canvas.FrameRect(r);
      EndDoc;
    end;
  Druck.Caption := '&Druck wiederholen';
  end;