Aqui tienes un ejemplo bien sencillo de como hacer una función "Split" en delphi:
Código Delphi
[-]
procedure Split (const Delimiter: Char; Input: string; const Strings: TStrings) ;
begin
Assert(Assigned(Strings)) ;
Strings.Clear;
Strings.Delimiter := Delimiter;
Strings.DelimitedText := Input;
end;
Fuente