Delphi 7 - błąd.

[Lukas-31]

Witam. Napisałem w Delphi prosty notatnik, tylko pojawia się błąd, dodaje cały kod:
To jest forma 3.

Kod: Zaznacz wszystko

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.RadioButton1Click(Sender: TObject);
begin
Form1.memo1.Font.Size:=5
end;

procedure TForm3.RadioButton2Click(Sender: TObject);
begin
Form1.Memo1.Font.Size:=15
end;

procedure TForm3.RadioButton3Click(Sender: TObject);
begin
      Form1.Memo1.Font.Size:=25
end;

end.


Przy tej linijce Form1.memo1.Font.Size:=5 wywala błąd undeclared identifier 'Memo1'.
Dodatkowo załączam poprzednie formy
Form1

Kod: Zaznacz wszystko

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, Menus, StdCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Z1: TMenuItem;
    Zapisz1: TMenuItem;
    Otwrz1: TMenuItem;
    Wyjd1: TMenuItem;
    ekst1: TMenuItem;
    Czcionka1: TMenuItem;
    Kolor1: TMenuItem;
    XPManifest1: TXPManifest;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Czcionka1Click(Sender: TObject);
    procedure Kolor1Click(Sender: TObject);
    procedure Zapisz1Click(Sender: TObject);
    procedure Otwrz1Click(Sender: TObject);
    procedure Wyjd1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit3, Unit2;

{$R *.dfm}

procedure TForm1.Czcionka1Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.Kolor1Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.Zapisz1Click(Sender: TObject);
begin
if savedialog1.execute then
begin
savedialog1.filename;
memo1.lines.savetofile(savedialog1.filename);
end;
end;

procedure TForm1.Otwrz1Click(Sender: TObject);
begin
if opendialog1.execute then
begin
opendialog1.filename;
memo1.lines.loadfromfile(opendialog1.filename);
end;
end;

procedure TForm1.Wyjd1Click(Sender: TObject);
begin
form1.close;
end;

end.


Form2

Kod: Zaznacz wszystko

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.RadioButton1Click(Sender: TObject);
begin
Form1.Memo1.Font.Color:=ClBlack
end;

procedure TForm2.RadioButton2Click(Sender: TObject);
begin
  Form1.Memo1.Font.Color:=ClBlue
end;

procedure TForm2.RadioButton3Click(Sender: TObject);
begin
  Form1.Memo1.Font.Color:=ClRed
end;

end.


Mam nadzieję, że pomożecie uporać mi się z tym błędem.