[kast2k]

Код:

function IsUsedWord(iword:string):boolean;
var
i:integer;
begin
result:=false;
for i:= to listbox1.items.count-1 do
  begin
    if iword=listbox1.items.strings[i] then
      begin
        result:=true;
        break;
      end;
  end;
end;