Сделать так, чтобы после ввода текста в Edit вместо нажатия кнопки "Да" можно было нажимать клавишу "Enter"

if (key = #13) then ...

if Key=VK_RETURN then...

Incompatible types

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
var
  x: string;
begin
  if (key = #13) then
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := ('SELECT PAS As e FROM [1]  ;');
  ADOQuery1.Active := True;
  x:= ADOQuery1.FieldByName('e').AsString; 
  if (x = Edit1.Text) then
  begin
    Form1.Visible := False;
    Form2.Visible := True;
    Edit1.Clear;
  end
  else
    MessageDlg('Ошибка!', mtInformation, [mbOK], 0); 
  Edit1.Clear; //очистка
end;

procedure TForm1.KeyPress(Sender: TObject; var Key: Char); 
var
  x: string;
begin
  if key = #13 then begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := ('SELECT PAS As e FROM [1]  ;');
  ADOQuery1.Active := True;
   end;
  x:= ADOQuery1.FieldByName('e').AsString; 
  if (x = Edit1.Text) then
  begin
    Form1.Visible := False;
    Form2.Visible := True;
    Edit1.Clear;
  end
  else
    MessageDlg('Ошибка!', mtInformation, [mbOK], 0); 
  Edit1.Clear; //очистка
end;

ADOQuery1.SQL.Text := ('SELECT PAS As e FROM [1]  ;');

  if (key = #13) then     //Если не заключить последующий код в операторные скобки begin..end, то это условие повлияет только на одну следующую строку
  ADOQuery1.SQL.Clear;           //Вот на эту
  ADOQuery1.SQL.Text := ('SELECT PAS As e FROM [1]  ;');    //Эта строка и все следующие выполнены будут независимо от того какая клавиша была нажата.