Hola.
Un ejemplo base:
Código Delphi
[-]
...
type
TMatStr4x5 = array [1..4,1..5] of string;
function foo(p1:string; var mt : TMatStr4x5 ):string;
begin
mt[1,1] := 'mt[1,1] = ' + p1;
Result := mt[1,1];
end;
Ejemplo de uso:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
mt: TMatStr4x5;
s : string;
begin
s := foo('hola', mt);
ShowMessage(s + #10 + mt[1,1]);
end;
Saludos
Pd.:
Recuerda usar las etiquetas cuando incluyas código fuente.