Помогите плиз с поиском!

[Nastasya]

Задача, понимаю, банальная, но решить никак не могу...
Надо найти в тексте сколько раз повторяется одно слово или символ.
Пыталась сделать так:

var
F : TextFile;
S,Z,Z1: String;
i,j,k,t:integer;
begin
S:=Edit1.Text;
AssignFile(F,S);
Reset(F);
While Not EOF (F) do
begin
Readln(F,Z);
end;
i:=1;
k:=0;
While i<Length(z) do
begin
Z1:=Copy (Z,i,Length(Edit2.Text));
t:=Pos(Edit2.Text,Z1);
i:=i+1;
If t>0 Then k:=k+1;
end;

В таком виде не видит символов пробела и переноса на след строку, т. е. считает не весь файл. Как исправить???

[spamer]

Шас посмотрим.
Вот так вроде:

var
  F: TextFile;
  kol,i: Integer;
  s: String;

procedure TForm1.Button1Click(Sender: TObject);
begin
kol:= 0;
AssignFile(F,'TD.txt');
Reset(F);
while not eof(f) do
begin
Readln(F,s);
for i:=1 to length(s) do
  if s[i] = 'твое слово или символ' then Inc(kol);
end;

Caption:= IntToStr(kol);

end;

[Nastasya]

Так он считает правильно, но только по одному символу А как посчитать если символов в слове больше???

[IceExecutioner]

Попробуй так:

var
  F: TextFile;
  kol,i: Integer;
  s: String;

procedure TForm1.Button1Click(Sender: TObject);
begin
kol:= 0;
AssignFile(F,'TD.txt');
Reset(F);
while not eof(f) do
begin
Readln(F,s);
if AnsiSameStr('твоё слово',s) then Inc(kol);
end;

Caption:= IntToStr(kol);

end;

[Nastasya]

Спасибо за помощь, но работать это не хочет
Теперь он ищет только если задать полную строку, а мне надо одно слово...

[Stilet]

Если я правильно понял то вот такой код:

var f:TextFile; e,s:string; i,c:integer;
begin    c:=0;
 AssignFile(f,'file1.txt'); reset(f);
 e:='слово';
 while not eof(f) do begin
  readln(f,s);
  for i:=1 to (length(s)-length(e)+1) do
   if (copy(s,i,length(e))=e) then
    inc(c);
 end;
 closefile(f);
 caption:=inttostr(c);
end;

Подсчитает что слово в переменке е в файле:

слово это то слово
которое совсем как слово но не слово так

Появляется 4 раза.