Ошибка в коды программы

[Claster]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SHDocVw, FileCtrl, OleCtrls, MSHTML, StdCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Label1: TLabel;
    Edit1: TEdit;
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure ListBox1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure WebBrowser1DownloadComplete(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  dir:ansistring;
  onefile:textfile;
  mewwindow:boolean=false;
  thishtml,txtpath:ansistring;
  bm:TbitMap;
  skin:string='data/skin/2.bmp';
  finddownload:boolean=false;
  listFull,list:TStringList;
  findtext:ansistring;
  find:string;
  len,i,pos:integer; s:string;

implementation

{$R *.dfm}

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
finddownload:=true;
WebBrowser1.Navigate(dir+'\data\'+ListBox1.Items[ListBox1.itemindex]+'.htm')
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered:=True;
bm:=TBitmap.Create;
bm.LoadFromFile(skin);
bm.LoadFromFile(skin); Form1.Repaint;
dir:=GetCurrentDir; 
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
var tr:IHTMLTxtRange;
begin
if not WebBrowser1.Busy then
begin
tr:=((WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
while tr.findText(findtext, 1,0)do
begin
tr.pasteHTML('<span style="background-color: blue; font-weight: border;">'+tr.htmlText+'</span>');
tr.scrollIntoView((true));
end;
end;
end; 
procedure TForm1.Button1Click(Sender: TObject);
var s,s1,find:string; i,j:integer;
list:TStringList;
FindRes:integer;
SR:TSearchRec;
begin
finddownload:=false;
findtext:=Edit1.Text;
list:=TStringList.Create;
List.Clear;
listFull:=TStringList.Create;
ListFull.Clear;
ListBox1.Clear;
FindRes:=FindFirst(dir+'\data\*.*', faAnyFile and not faDirectory, SR);
while FindRes=0 do
begin
s:=SR.Name;
s1:=s[length(s)-3]+s[length(s)-2]+s[length(s)-1]+s[length(s)];
if (s1='html') or (s1='.htm') then
ListFull.Add(s);
FindRes:=FindNext(SR);
end;
FindClose(SR);
for i := 0 to List.Count - 1 do
begin
assignfile(onefile, dir+'\data\'+listfull.Strings[i]);
try
Reset(onefile);
while not (eof(onefile)) do
begin
readln(onefile,s1);
if s1<>'' then
begin
j:=pos(AnsiLowerCase(findtext),AnsiLowerCase(s1));
if (j<>0) then
begin
s:=listfull.Strings[i];
s1:=s[length(s)-3]+s[length(s)-2]+s[length(s)-1]+s[length(s)];
if (s1='html') then
begin
ListFull.Add(s);
Delete(s,length(s)-4,5);
end else
if (s1='.htm') then
begin
ListFull.Add(s);
Delete(s,length(s)-3,4);
end;
ListBox1.Items.Append(s);
break;

end;
end;

end;
except

end;
closefile(onefile);
end;


end;
procedure TForm1.FormShow(Sender: TObject);
begin
edit1.Clear;
listbox1.Clear;
webbrowser1.Navigate('');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
listbox1.Clear;
webbrowser1.Navigate(''); 
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
bm.Destroy; 
end;

procedure TForm1.FormPaint(Sender: TObject);
var x,y:integer;
begin
for x:= 0 to Form1.ClientWidth div bm.Width do
for y:=0 to Form1.clientHeight div bm.Width do
Form1.Canvas.Draw (x*bm.width, y*bm.height, bm);
end;

end.

Ошибки [Warning] Unit1.pas(7): Unit 'FileCtrl' is specific to a platform
j:=pos(AnsiLowerCase(findtext),Ansi LowerCase(s1)); -> [Error] Unit1.pas(110): Missing operator or semicolon

[Stilet]

Потому что pos у тебя ПЕРЕМЕНКА.
Пиши так:

j:=system.pos(AnsiLowerCase(findtext),AnsiLowerCase(s1));

Или что еще лучше - НЕ НАЗЫВАЙ ПЕРЕМЕНКИ ИМЕНАМИ, КОТОРЫЕ ЗАРЕЗЕРВИРОВАНЫ ИЛИ МОГУТ КОНФЛИКТОВАТЬ.

[Claster]

Спасибо скомпилелось, но чёто искать не хочет!!!

[Stilet]

Ну так отладчиком пройдись. че стесняться.

[Claster]

Прога ищет необходисую часть слова в htm документе выводит название документов в ListBox а в WebBrowsere отображает весь текст документа и слово заданое для поимка выделяет синим цветом!!!

Прога запускаеться все работает вот только не ищет!!! Всё сделано как показано в примере