functionSearchMemo(Memo:TCustomEdit;constSearchString:string;Options:TFindOptions):Boolean; var Buffer,P:PChar; Size:Word; begin Result:=False; ifLength(SearchString)=0then Exit; Size:=Memo.GetTextLen; if(Size=0)then Exit; Buffer:=SysUtil