Помогите пожалуйста перевести из С++Builder на Delphi строки:

ComboBox->Properties->Items->Add(str.SubString(1, str.Pos("*")-1));
str.Delete(1,str.Pos("*"));