Busqueda con FindDialog hacia arriba

[Arkaz]

Hola, estoy intentando realizar la busqueda de una palabra en un texto de un memo con FindDialog. He conseguido que me haga la busqueda hacia abajo con este codigo:

procedure TForm1.FindDialog1Find(Sender: TObject);
var
posicion:integer;
palabra:string;
begin
if frdown in FindDialog1.Options then begin
palabra:=Copy(Memo1.Text,
2+Memo1.SelStart,
Length(Memo1.Text)-Memo1.SelStart);

posicion:=Pos(UpperCase(finddialog1.FindText),UpperCase(palabra));

if posicion<>0 then
begin
Memo1.SetFocus;
Memo1.SelStart:=Memo1.SelStart+posicion;
Memo1.SelLength:=Length(finddialog1.FindText);
end
else begin
ShowMessage('No encuentro '+finddialog1.FindText);
memo1.SelStart:=0;
end;
end;
end;
end;

Pero la busqueda hacia arriba no me sale y no se como hacerla. Me podeis ayudar, por favor?.Gracias!