AList := TStringList.Create;
try
    AList.Delimiter := ';';
    AList.DelimitedText := 'abc;def;'
    {...}
    { AList[0] = 'abc', AList[1] = 'def', AList[2] = '' }
    {...}
finally
    AList.Free;
end;