Listbox og Richedit i hver sin form

jeg har et program med 3 forme.
i form 1 er der en Trichedit og i form 3 er der en listbox med filerne fra en mappe. hvordan loader jeg en fil fra listbox'en ind i richedit på form 1.

jeg har følgende kode:

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ListBox1: TListBox;
  procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  valgt: string;


implementation

{$R *.dfm}


procedure TForm3.Button1Click(Sender: TObject);
var
SR: TSearchRec;
I: Integer;
sl: tstringlist;
dir: string;

begin
dir := ExtractFilePath(Application.ExeName);
  sl := tstringlist.create;
  I := FindFirst(dir + '\gemte filer\*.*', faAnyFile, SR);
  try
    while I=0 do
    begin
    ListBox1.Items.Add(sr.Name);

      I := findnext(sr);
    end;
  finally
    findclose(sr);
    sl.free;

  end;
end;



procedure TForm3.Button2Click(Sender: TObject);
begin
Form1.RichEdit1.Lines.LoadFromFile (Form3.ListBox1.Itemindex);
end;

end.