Função para retornar um vetor String

type
  TRetorno = array of string;

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    function TiraPontoVirgula(Valor: string): TRetorno;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.TiraPontoVirgula(Valor: string): TRetorno;
var
  i,x: integer;
  aux: String;
  v: TRetorno;
  vParam: string;
begin
  aux := ´´;
  vParam := Valor;
  while vParam <> ´´ do
  begin
    SetLength(v, Length(v)+1);
    i := pos(´;´, vParam);
    if i > 0 then
    begin
      v[High(v)] := Copy(vParam, 1, i-1);
      Delete(vParam, 1, i);
    end
    else
    begin
      v[High(v)] := vParam;
      vParam := ´´;
    end;
  end;

  Result := v;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Retorno: TRetorno;
  i: integer;
begin
  Memo1.Clear;

  Retorno := TiraPontoVirgula(Edit1.Text);

  for i := Low(Retorno) to High(Retorno) do
    Memo1.Lines.Add(Retorno[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Lista: TStringList;
begin
  Memo1.Clear;

  Lista := TStringList.Create;
  Lista.Delimiter := ´;´;
  Lista.DelimitedText := Edit1.Text;

  Memo1.Lines.AddStrings(Lista);
end;