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