procedure TForm1.FindDialog1Find(Sender: TObject);
var
I,J,PosReturn,SkipChars: integer;
begin
  for I := 0 to Memo1.Lines.Count do
  begin
    PosReturn := Pos(FindDialog1.FindText,Memo1.Lines[I]);

       if PosReturn <> 0 then
         begin
           SkipChars := 0;
             for J := 0 to I - 1 do
               SkipChars := SkipChars + Length(Memo1.Lines[J]);

               SkipChars := SkipChars + (I * 2);
               SkipChars := SkipChars + PosReturn - 1;
               Memo1.SetFocus;      //메모컴포넌트에 포커스를 옮긴다.
               Memo1.SelStart := SkipChars;   //첫 인덱스의 문자선택
               Memo1.SelLength := Length(FindDialog1.FindText); //찾는 문자열의 길이만큼
               break;

         end;
    end;

end;