Program StrBreakApartDemo;
var i : Integer;
    SL : TStringList;

Begin
{Before working with TStringList Object - You must CREATE it!}
SL := TStringList.Create;

StrBreakApart('This is a StrBreakApart Demo', ' ', SL);
if SL.Count > 0 then for i := 0 to SL.Count - 1 do
    begin
    AddToSystemJournal(SL.Strings[i]);
    end;

{Note:
When you finish working with TStringList Object - You must FREE it!}
SL.Free;

End.