const
    s = 'aaa bb cccc dd';
var
    i: integer;
    SL: TStringList;
begin
    SL := TStringList.Create;
    try
        SL.DelimitedText := s;
        for i := 0 to SL.Count-1 do
            ShowMessage(SL[i]);
    finally
        SL.Free;
    end;
end;