error en el codigo

[__cadetill]

Prueba con esto a ver....

implementation

uses
  Unit2; // o como la hayas llamado

{$R *.dfm}

procedure TForm1.crear_expoClick(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  try
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;