Hazlo así como te paso el ejemplo y te funcionará...
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var sl : TStringList;
i: integer;
begin
sl := TStringList.Create();
try
sl.Delimiter := '-';
sl.DelimitedText := Edit1.Text;
for i := 0 to sl.Count - 1 do
begin
ShowMessage(sl[i]);
end;
finally
sl.Free();
end;
end;
Saludos desde Bogotá - Colombia