[Oleg]

ты думаешь прям как и я, я просто пока удалил переменную ost У МЕНЯ БЫЛО ТАКОЕ ЖЕ НАЗВАНИЕ !!!(вот только я считал её так: (но разницы то нет, просто забыл про mod)

Код:

ost:=Len-dl*SymbCount;

Кстати, ost не используется у тебя, но это я доделаю, спасибо за помощь !
Всё, спасибо ещё раз, я понял свою ошибку, теперь функция выглядит так:

Код:

  Function TCallingText.DivText(Text:string;SymbCount:integer):string;
  var
  ost,i,Len,DL,sl,el:integer;
  rText:string;
  begin
  rText:='';
  Len:=Length(Text);
  if Len<=SymbCount then Result:=Text else begin
  dl:=Len div SymbCount;
  ost:=Len-dl*SymbCount;
  for i:=0 to dl-1 do begin
  sl:=(i*SymbCount)+1;
  el:=(sl+SymbCount)-1;
  if rText = '' then rText:=Copy(Text,sl,SymbCount)
  else
  rText:=rtext+#13+Copy(Text,sl,SymbCount);
  end;
  if ost>0 then
  Result:=rText+#13+Copy(Text,Length(text)-ost+1,SymbCount)
  else
  Result:=rText;
  end;
  end;