[Mrak]

Код:

ADOQuery1.close;
  ADOQuery1.SQL.Clear;
  aDOQuery1.SQL.Add('SELECT ... from бд');
  try
    ADOQuery1.Open;
  except
    begin
      messageDlg('Ошибка SQL', mtError, [mbOK], 0);
      Exit;
    end;
  end;
  edit1.text:=ADOQuery1.FieldByname('...').AsString;

в edit1 покажет 1ую запись столбца "..."