Печать формы. Delphi 7

[Racfor]

Посмотрите, пожалуйста, код программы.
Нужно чтобы форма целиком напечаталась, но вместо этого толкьо ошибка появляется.
Исправьте, пожалуйста, и напишите в чем была ошибка.
Печать должна пойти по нажатию кнопки "Печать"
Программа:
http://slil.ru/26029336

[AlDelta]

Текст ошибки можно выложить сюда?

[Карась]

При нажатии на какуюто кнопку (её капшен не "печать"), какойто фаил посылается принтеру в очередь.
Предположительно если включить принтер, то фаил будет напечатан....такчто ошибок нету...

[Racfor]

текст ошибки:
[Error] Unit1.pas(44): Incompatible types: 'Forms.TPrintScale' and 'Unit1.TPrintScale'


Принтер включен и никогда не выключается(заправлен и чем печатать есть).


PS Запускать не exe файл надо, а открыть сам проект и F9 - тогда появляется ошибка.
Если exe запустить, то просто печатает текст (контанта) которые я вводил для проверки.

[Карась]

В архиве нет *.pas файла.

[Racfor]

Я запускаю Project1.dpr.

Сохранил отдельно pas этого проекта. Архив залил заново

[Карась]

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,Printers;

type

  //Эту строку писать ненадо ибо этот тип написали в Forms.
  //TPrintScale = (poNone, poProportional, poPrintToFit);

  TForm1 = class(TForm)
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Memo1: TMemo;
    Button1: TButton;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.PrintScale := poPrintToFit;
Form1.Print;
end;

end.

[Racfor]

Спасибо большое. Работает