Поиск без учета регистра букв.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
keyfields:string;
    strFind: String;
begin
if (radiogroup1.itemindex=0) then keyfields:='Название'
                            else keyfields:='Стоймость проката';
if (radiogroup1.itemindex=2) then keyfields:='Название';
    strFind := Trim(Edit1.Text);
    if strFind = '' then
        begin
        ShowMessage('Введите текст поиска.');
        Exit;
end;
    Datamodule2.ADOtable1.Locate('КодФильма', CurrentID, [loCaseInsensitive, loPartialKey]);
    Datamodule2.ADOtable1.Next;
 
while not Datamodule2.ADOtable1.Eof do
        begin
        if LeftStr(Datamodule2.ADOtable1.FieldByName(keyfields).AsString, Length(strFind)) = strFind then
            begin
            CurrentID := Datamodule2.ADOtable1.FieldByName('КодФильма').AsInteger;
            Datamodule2.ADOtable1.Locate('КодФильма', CurrentID, [loCaseInsensitive, loPartialKey]);
            DBGrid1.SetFocus;
            Exit;
            end;
        Datamodule2.ADOtable1.Next;
        end;
 
    if Datamodule2.ADOtable1.Eof then
        begin
        ShowMessage('Поиск окончен');
        Datamodule2.ADOtable1.First;
        CurrentID := Datamodule2.ADOtable1.FieldByName('КодФильма').AsInteger;
        end;
end;