[leon2009]

Спасибо!

function Reset(Rdx:string):string;
const
wLen : Integer = 5;
var
Src: String;
Idx : Integer;
begin
Src := Rdx; // исходная строка
Src := StringReplace(Src, #13, '',[rfReplaceAll]);
Src := StringReplace(Src, #10, '',[rfReplaceAll]);
Idx := 1;
While Idx < Length(Src) Do
Begin
result:=Copy(Src,Idx,wLen);
Inc(Idx,wLen);
End;
end;

функции изучаем = Спасибо! правда, я не знал, что так много времени 100 000 срок будет передавать Inc(Idx,wLen);, было 800 000