1:
2:

procedure TForm.Tuwas; // kann zugreifen
procedure Tuwas; // kann nicht direkt zugreifen

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
     {MeinDatenObjekt.}SpeichereZeugs(SaveDialog1.Filename);
     // je nachdem, ob man zur Datenverwaltung auch eine Klasse nutzt oder nicht
end;

// an anderer Stelle, ggf. sogar in einer anderen Unit:
procedure {TMeinDatenObjekt.}SpeichereZeugs(aFilename: String);
begin
  // speichern
end;

1:

type TArrayName = array [0..10] of string;

1:
2:
3:
4:

procedure ButtonClick (...);
Begin
    ShowMessage (Button2Array[1]);   
End;

1:
2:
3:
4:
5:

procedure AndererButtonClick (...);
var Button2Array : TArrayName;
Begin
   Button2Array[1] := 'Test';
End;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var 
Button2Array : TArrayName;

procedure AndererButtonClick (...);
Begin
   Button2Array[1] := 'Test';
End;

procedure ButtonClick (...);
Begin
    ShowMessage (Button2Array[1]);   
End;

1:
2:

type
  TMeinArray = Array[0..2] of string;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm10.btn1Click(Sender: TObject);
var
  arr : TMeinArray;
begin

  arr[0] := 'String 1';
  arr[1] := 'String 2';
  arr[2] := 'String 3';

  TuWasMitArray(arr);

end;

procedure TForm10.TuWasMitArray(AArray: TMeinArray);
begin
  ShowMessage(AArray[2]);
end;

1:

procedure TForm10.TuWasMitArray(var AArray: TMeinArray);

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure Button1Click(Sender : TObject);
begin
 showmessage('Button eins geklickt');
end;

procedure Button2Click(Sender : TObject);
begin
 showmessage('Button zwei geklickt');
end;

procedure Button3Click(Sender : TObject);
begin
  Button2Click(Button2);
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure Form1.OptionenButtonClick (Sender: TObject);
Begin
   Array[5] := '1';


End;

procedure Form1.FormActivate(Sender: TObject);
Begin
   If Array[5] = '1' Then
       ShowMessage ('Super ich kann auf die Variable von OptionButtonClick zugreifen!');
End;