function LongName(short: String): String;
var li: Integer;
begin
  if long_names=True then
    begin
     for li := 0 to LbLehShort.Count - 1 do
      if ansipos(ansilowercase(short),ansilowercase(LbLehShort.Items.Strings[li]))
      = 1 then
       if long_direct=TRUE then
        Result:=LbLehLong.Items.Strings[li]
       else
        Result:='<font title="'+LbLehLong.Items.Strings[li]+'">'+short+'</font>';
  end;
end;