[ryderx34]

что-то я ничего не понял...
но вот "что-нибудь наподобие":

Код:

// List - список (TStringList, TListBox и т. п.) в который вписаны числа типа Integer
// E - строка, которая будет добавляться в список
// P - число с которым будут сравниваться элементы списка
// Result - возвращает количество вставленных строк (E)

function TheFunction(List: TStrings; E: string; P: Integer): Integer;
var
  I: Integer;
begin
  Result := 0;
  while I < List.Count do // перебираем в цикле все элементы
  begin
    if StrToInt(List.Strings[i]) > P then // сравнивая числа из них с P
    begin
      List.Insert(I + 1, E); // если > P, то вставляем E после текущего элемента
      Inc(Result); // увеличиваем Result на единицу
      Inc(I); // а это чтобы не обрабатывать только что вставленную строку при следующем проходе цикла
    end;
    Inc(I);
  end;
end;