Problem med store/små bugstaver

Hej

Jeg bruger følgene kode til at kikke en listbox igennem for et bestemt ord:

function TForm1.ContainsBlacklistedWords(ASearchText : String) : Boolean;
var
  I : Integer;
begin
  Result := False;
  for I := 0 to Blacklist.Items.Count-1 do
  begin // kig efter hvert enkelt ord i blacklisten.
    if Pos(Blacklist.Items.Strings[I], ASearchText) > 0 then
    begin // Okay ordet er fundet...
      Result := True;
      Break;
    end;
  end;
end;

Men hvis jeg søger på 'test' og der står 'TEST' i listboxen så siger den at der ikke er fundet noget... Hvordan gør man sådan at den er ligeglad med store og små bugstaver?