1:

Image1.Picture.SaveToFile('c:\test.jpg');					

1:

Image1.Picture.SaveToClipboardFormat({...});					

1:

Form1.Print;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TUHauptForm.DruckeClick(Sender: TObject);
var
  r: TRect;
  i: Integer;
begin
  {
  if PrintDialogNotation.Execute then
   RichEditNotation.Print(OpenDialog1.FileName);
  }
  with Printer do
   begin
    r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
    BeginDoc;
    Canvas.Brush.Style := bsClear;
    for i := 0 to RichEditNotation.Lines.Count do
     Canvas.TextOut(200,200 +
      (i * Canvas.TextHeight(RichEditNotation.Lines.Strings[i])),RichEditNotation.Lines.Strings[i]);
    Canvas.Brush.Color := clBlack;
    Canvas.FrameRect(r);
    EndDoc;
   end;  // Von with-Anweisung
end;