Hola:
No me suena una función con ese nombre, pero imagino que sería algo así (dices que devuelve un array, supongo que te refieres a un string, que es un array of char):
Código:
function DelphiSplit (const s: string; SepChr: Char) : String;
var
p : Integer;
begin
p := Pos (SepChr, s);
if p <> 0 then result := Copy (s, p + 1, Length(s) - p)
else result := s;
end;
Saludos