麻烦各位帮助我解决两个小问题，见者有分

Question

procedure TForm1.FormCreate(Sender: TObject);
begin
DateTimePicker1.Date := Now;
end;

Answer 1

var
  User, Pass: string;
begin
  while not Database1.Connected do
  try
    Database1.Connected := True;
  except
    on E: Exception do
    begin
      if InputQuery('Password', 'password', Pass) then  
        Database1.Params.Values['Password'] := Pass;
    end;
  end;
end;

Answer 2

var
  User, Pass: string;
begin
  while not Database1.Connected do
  try
    Database1.Connected := True;
  except
    on E: Exception do
    begin
      if InputQuery('Password', 'password', Pass) then  
        Database1.Params.Values['Password'] := Pass
      else
      begin
        if MessageBox(0, 'are you quit?', 'YESNO', MB_YESNO) = IDYES then 
          Break;
      end
    end;
  end;
end;