ne sam chak tolkowa maloumen wse pak :)
ideqta beshe

var

  s:String;

  x,l:integer

  line:integer;

  c:char;

  st:char;

  plen,slen:integer;

  midx:integer;

  pi:integer;

  lo:integer;

begin

  result:='Not found!';

  line:=0;lo:=0;

  if (pattern='') or (s='') then exit;

  st:=pattern[1];

  s:=strlst.text;

  plen:=length(pattern);

  slen:=length(s);

  x:=1;

  midx:=1+slen-plen;

  while (x<midx) do begin

     c:=s[x];

     if c=#13 then begin 

        inc (line);

        lo:=x;//twa e malko sporen moment..

     end;

     if c=st then begin

        l:=x+plen-1;pi:=2;

        while (pi<l) do if s[x+pi]=pattaern[pi] then inc (pi) else break;

        if not (ip<i)  then begin

            result:='Found at line '+inttostr(line)+' at lineoffset '+inttostr (x-lo);

            break;

        end;

     end;

     inc (x);

  end; 

end;