por favor necesito ayuda con unos formularios...

[arnovisr]

Bueno lo que hago es lo siguiente:
En Form1...
implementation
Uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var f: TForm2;
begin
F:= TForm2.create(self);
try
F.Showmodal;
finally
f.free;
end;
end;


En formulario 2:...

implementation
uses unit3;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var f: TForm3;
begin
F:= TForm3.create(self);
try
F.Showmodal;
finally
f.free;
end;
end;


Y en el formulario 3

implementation
Uses Unit1, Unit2;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
form1.Edit1.Text:= edit1.Text;
form1.Edit2.Text:= edit2.Text;
form2.Edit1.Text:= edit1.Text;
form2.Edit2.Text:= edit2.Text;
end;

y me manda el siguiente error:

Access Violation