Si el código que de problemas es este:
Código Delphi
[-]
procedure TFrmMenu.btn2Click(Sender: TObject);
begin
with FrmCalle.Create(Self) do
with TFrmCalle.Create(Self) do
frmCalle:=TfrmCalle.Create(Self);
with frmCalle do
try
ShowModal;
finally
Free;
end;
end;
Saludos cordiales