[NumLock]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Print;
end;

или

Код:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls, ComCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
  RichEdit: TRichEdit;
  i: Integer;
begin
  RichEdit:=TRichEdit.Create(Self);
  RichEdit.Parent:=Self;
  try
    for i:=0 to ComponentCount-1 do
      if Components[i] is TLabel then RichEdit.Lines.Add(TLabel(Components[i]).Caption);
    RichEdit.Print('');
  finally
    RichEdit.Free;
  end;
end;