is OP or not

[turboPASCAL]

Code:

[color=green]{ Return True if the string Nick is a channel operator. }[/color]
[b][color=darkblue]function[/color][/b] TIdIRC.IsOp([b]A[/b]Nick: [b][color=darkblue]String[/color][/b]): Boolean;
[b][color=darkblue]begin[/color][/b]
  Result := (Length([b][color=#ff0000]A[/color][/b]Nick)>0) [b]and[/b] ([b][color=#ff0000]A[/color][/b]Nick[1] = '[color=blue]@[/color]');
[b][color=darkblue]end[/color];[/b]