[lmikle]

А вообще, все можно переписать так:

Код:

function CheckBan(Status : Integer; AStr : String; AList : TStringList) : Boolean;
var
  I : Integer;
begin
  Result := False;
  If Status <> 2 Then Exit; // не знаю зачем тубе этот статус...

  For I := 0 to AList.Count-1 Do
    If AnsiPos(AStr,AList[i]) > 0 Then
      Begin
        Result := True;
        UserMas[i].ban := True;
        Form1.ChatMemo.Lines.Add(AList[i]+ ' : ' +AStr);
        Break;
      End;
end;

Вызов:

Код:

// Не проверяем результат...
CheckBan(2,Name,Form4.ListBox2.Items); // По имени
CheckBan(2,Host,Form4.ListBox1.Items); // По хосту

или как-то так:

Код:

if CheckBan(2,Name,Form4.ListBox2.Items) Or CheckBan(2,Host,Form4.ListBox1.Items)
  Then Form1.ChatMemo.Lines.Add('User by name ' + Name + ' or by host ' + Host + ' banned.')
  Else Form1.ChatMemo.Lines.Add('User by name' + Name + ' or by host ' + Host + ' not found.');