begin
if not pnlproject.visible=true
then
  begin
   messagedlg('moo', mtInformation, [mbOk], 0);
  end
    else
    begin
     fadvanced.Visible:=true;
     foren.Visible:=false;
    end;
end;