sql запрос работает неверно :(

[Vasya]

вывожу данные из базы данных dbf III (кодировка дос), нужно осуществить поиск по текстовому полю. При вводе текста в едит (с помощью него вводятся параметры для поиска) запрос не дает никаких результатов. ставлю в свойствах едита кодировку OEM при этом буквы искажаются.
есть ли решение этой проблемы?

[Vasya]

подскажите очень надо!!!

[Andrei]

Я делал так:

1. Кодировку Edit оставляю по умолчанию (ANSI).
2. Прописываю процедуру поиска:

 
procedure TForm1.Button1Click(Sender: TObject);
var S1:PChar;
begin
  //сбрасываю значение Edit в переменную
  S1:=PChar(Edit1.Text);
  //перекодирую значение переменной в OEM
  AnsiToOEM(S1,S1);
  //Осуществляю поиск по базе
  Table1.SetKey;
  Table1.FieldByName('SNAME').AsString := S1;
  Table1.GotoNearest;
end;

[Vasya]

спасибо Andrei за подсказку. Вчера все таки решил эту проблему
сейчас возник другой вопрос можно ли сделать так чтобы в Combobox набирался текст только в верхнем регистре. Чет не могу найти свойство отвечающее за это . Или может кто знает как преобразовать введенный текст в верхний регистр?

[_SERGEYX_]

Upcase()
Uppercase()