[roman]

Declara un tipo de datos para el arreglo:

Código Delphi [-]
type
  TStringArray: array of String;

function Persona(Codigo, Nombre: String): TStringArray;
begin
  SetLength(Result, 2);

  Result[0] := Codigo;
  Result[1] := Nombre;
end;

// Saludos