Distingui MAYUSC. y minusc. en una busqueda??

[makis]

Ola este es mi primer post, a ver tengo esto

Código Delphi [-]
procedure TForm2.Image1Click(Sender: TObject);
var
Posicion : longint;
Cadena : string;

begin
        
        Cadena:= txtBox.Text;
        Posicion:= Pos(Cadena, Form1.Memo1.Text) -1;
        
        Form1.Memo1.SelStart:= Posicion;
        Form1.Memo1.SelLength:= Length(Cadena);
        Form1.Memo1.SetFocus;
        Close;

end;

El problema está ke si una palabra la pongo para buscar en mayusculas y en el texto a buscar esta en minuscula no lo selecciona. ¿Me podeis hechar un cable?

Saludos y Gracias