Finding text

I am using the find dialog to find strings in a TMemo.  It finds the
string OK, but doesn't bring the text into view if it's past the
viewable area.  Does anyone have any code I could borrow that corrects
this??  Thanks in advance...

   ---------------------------
  / K e i t h   S e l b e e  /
 /    ksel...@icgroup.net   /
/__________________________/