[splitstring] Separador de string para delphi anterior ao unicode, transforma uma string em um array de strings

splitstring.pas

function TForm1.SplitString(Texto: string; Delimitador: char; ValueIfEmpty: string = ''): TStrings;
var
  Strings: TStringList;
begin
  Strings := TStringList.Create;
  Strings.Delimiter := Delimitador;
  Strings.DelimitedText := Texto;
  Result := Strings;
end;