[Vidoc3000]

Помогите разобраться где я ошибся. Пытаюсь сделать бан лист для чата. Делал через процедуру работал через раз, а перешел на функцию вообще не работает. Если по имени то находит, а по Host`у уже не ищет. Или может какой пример есть по интересней чем моё "творчество"...

Код:

Function CheckBan (Status: Integer; Host, Name: String):boolean;
  var
    i, j: integer;
begin
  if Status = 2 then
    begin
      if Name<>'' then
        begin
          for I := 0 to Form4.ListBox2.Count-1 do
            begin
              j:= AnsiPos(Name, Form4.ListBox2.Items[i]);
              if j>0 then
                begin
                  //отладка
                  Form1.ChatMemo.Lines.Add(Form4.ListBox2.Items[i]+ ' : ' +Name);
                  UserMas[i].ban:=True;
                  //Form1.ServerSocket.Socket.Connections[i].Close;
                  //Form1.ServerSocket.Socket.Connections[i].SendText('7');
                  //UpdDo:=True;
                  Result:=True;
                end;
            end;
        end
      else
        begin
          if Host<>'' then
            begin
              for I := 0 to Form4.ListBox1.Count-1 do
                begin
                  j:= AnsiPos(Name, Form4.ListBox1.Items[i]);
                  if j>0 then
                    begin
                      //отладка
                      Form1.ChatMemo.Lines.Add(Form4.ListBox1.Items[i]+ ' : ' +Host);
                      UserMas[i].ban:=True;
                      //Form1.ServerSocket.Socket.Connections[i].Close;
                      //Form1.ServerSocket.Socket.Connections[i].SendText('7');
                      //UpdDo:=True;
                      Result:=True;
                    end;
                end;
            end
          Else
            Result:=False;
            Form1.ChatMemo.Lines.Add('WTF?!');
        end;
    end;
end;