انشاء اجراء -procedure

[Agmcz]

السلام عليكم
هل هكذا..

PHP كود :

type
  TForm1 = class(TForm)
  private
    procedure MyProc(const canal: string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyProc(const canal: string);
var
  op : Array of String;
begin
setlength(op,2);
op[0]:=':aspect-ratio=4:3';
op[1]:='--rtsp-tcp';
VLCPlugin21.show;
VLCPlugin21.playlist.stop;
VLCPlugin21.playlist.clear;
VLCPlugin21.playlist.add(canal,op[1],op[0]);
VLCPlugin21.playlist.play;
Edit1.Text:=canal-name;
end;