hi maximus,
ich hab für sowas mal n paar funktionen geschrieben, sind zwar viele exit;s drin, aber ist ja egal, sie funktionieren alle.
in deinem falle kannst du für den ersten teil (vor dem komma) die funktion so verwenden:
s := GetTok(deinstring, 1, ',');
um den rest zu bekommen (nach dem komma) verwendest du GetToks und NumTok, also so:
s := GetToks(deinstring, 2, NumTok(deinstring, ','), ',');
die
unit ist im anhang, einfach einbinden