Bu sayfanin en altinda bir Split fonksiyonu var:
http://forum.ceviz.net/yeni-baslayan...db-t21210.html
Oradaki ornegi sizin yapmak istediginiz seye uyarlarsak:
procedure UseSplit;
var
s: TStringList;
begin
s := TStringList.Create;
try
Split(Edit1.Text, '-', s);
// burada bir seyler yapiliyor...
finally
s.Free;
end;
end;