Array an Function / Procedure übergeben

[moggaz]

Hmm entweder ist es spät oder ich habe (wie ich eher vermute) nen gedankenfehler drin.
Hier mal in abgewandelter form als procedure und ins array schreibend.....

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  tmyarray = array[1..10] of string;

var
  Form1: TForm1;
  test1,test2,test3: tmyarray;

implementation

{$R *.dfm}

procedure schreib(s:string ; foo:tmyarray);         // <- hier übergebe ich test1 oder ?
var x:integer;
begin
  x:=1;
  Repeat
   foo[x]:=s;          // <<----- foo ist doch quasi mein array als variable oder ? <- sollte er doch hier in test1 schreiben nicht in foo ¿
   inc(x);
  Until x=5;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin

// 'MUH' in Array Test1 schreiben

schreib('muh', test1);

end;

procedure TForm1.Button2Click(Sender: TObject);
var x: integer;
begin

// Array (Test1) in ein MemoFeld schreiben

  x:=1;
  memo1.Lines.Clear;
  
    Repeat
      memo1.Lines.Add(test1[x]);
      inc(x);
    Until x=10;

end;

end.

Test1 ist aber leer......