[Luis F. Orjuela]

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