Problemer med kode

hej Jeg står med dette problem med denne kode at den hele tiden mælder fejl i nederste linje .. hvad er problemet ??


procedure TForm1.bn1Click(Sender: TObject);
begin
  If opendialog1.execute then
  begin
    Form2:=Tform2.Create(self);
    Form2.Caption:=Opendialog1.FileName
    Form2.Richedit1.Lines.Loadformfile(Opendialog1.Filename);


Hvis nogle kan hjælpe mig ville jeg blive meget gald (det kan i jo heh)