function Explode(const cSeparator, vString: String): Array of String;
procedure netButton2_OnClick(Sender: Integer); var aArray : Array of String; Str: string; begin; Str := 'Mustermann;Max'; aArray := Explode(';', Str); message_dlg('Nachname: '+aArray0); message_dlg('Vorname: '+aArray1); message_dlg('Länge des Arrays: '+inttostr(length(aArray))); end;