Hi Norbert!
Am schnellsten und einfachsten ist das hier:
Delphi-Quellcode:
s := 'Familienname'; //Mustermann, M.
s := copy(s,1,pos(',',s));
//copy kopiert aus dem String s vom 1 ten Zeichen bis zum Komma pos(',',s) alle zeichen des Strings ;)
Hoffe ich habe keine Fehler eingebaut
Schöne Grüße und viel Spass mit Delphi

Denk dran: Delphi rulz!