du prüfst ja auch ob dein Wort gleich der ganze String ist, du musst aber prüfen ob dein Wort in dem String vorkommt, "pos" heist hier das Lösungswort.
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
begin
if fileexists('world.save') then begin
assignfile(w, 'world.save');
reset(w);
tota := 0;
repeat
readln(w,line);
if pos('[OBJECT]', line) <> 0 then tota := tota + 1;
until eof(w);
Label4.Caption := IntToStr(tota);
CloseFile(w);
end
else ShowMessage('Kein World.save vorhanden');
end;
Diese Lösung funktioniert aber nur wenn '[OBJECT]' höchstens einmal pro Zeile vorkommt.
gruss