Como efetuar uma conexão Delphi 7 + dbExpress + Firebird

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos fechar o SQLDataSet
  SQLDataSet1.Close;

  // vamos definir o tipo de comando
  SQLDataSet1.CommandType := ctQuery;

  // vamos definir a query a ser executada
  SQLDataSet1.CommandText := 'SELECT * FROM USUARIOS';

  // vamos disparar o comando
  SQLDataSet1.Active := True;

  // e agora vamos percorrer os resultados obtidos
  Memo1.Clear;
  while not SQLDataSet1.Eof do
    begin
      // vamos mostrar os IDs e nomes dos usuários
      Memo1.Lines.Add(SQLDataSet1.Fields.Fields[0].AsString + ' - ' +
        SQLDataSet1.Fields.Fields[1].AsString);

      // vamos mover para o próximo registro
      SQLDataSet1.Next;
    end;
end;