[sorockinalex]

Код:

procedure StrBreakApart(const S, Delimeter: string; Parts: TStrings);
begin
  Parts.text:=StringReplace(S, Delimeter, #13#10, [rfReplaceAll, rfIgnoreCase]);
end;