pokretanje procedure iz programa?

Code:

private 
   procedure PrikaziPoruku();

...

procedure TForm1.PrikaziPoruku();
begin
        ShowMessages('poruka');
        ....
end;

Code:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
    procedure NekaMetoda(const AMessage: String);
  end;

var
  Form1: TForm1;

implementation

uses
  System.Rtti;

{$R *.dfm}

function ExecMethod(const AClass: TClass; const AMethod: String; const AArgs: array of TValue): Boolean;
var
  r: TRttiContext;
  t: TRttiType;
  m: TRttiMethod;
begin
  t := R.GetType(AClass);
  m := t.GetMethod(AMethod);
  if Assigned(m) then
  begin
    m.Invoke(AClass.Create, AArgs);
    Exit(TRUE);
  end;
  Exit(FALSE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExecMethod(TForm1, 'NekaMetoda', ['neka poruka']);
end;

procedure TForm1.NekaMetoda(const AMessage: String);
begin
  ShowMessage(AMessage);
end;

end.

Code:

TNekaFunkcija = procedure(const AParametar: String) of object;
PNekaFunkcija = ^TNekaFunkcija;

TNekaKlasa = class
private
  function IzvrsiMetodu(const AMetoda, AParametar: String): Boolean;
public
published
  procedure NekaMetoda(const AParametar: String);
end;

function TNekaKlasa.IzvrsiMetodu(const AMetoda, AParametar: String): Boolean;
var
  method_addr: PNekaFunkcija;
begin
  method_addr := self.MethodAddress(AMetoda);
  if not Assigned(method_addr) then
    Exit(FALSE);

  method_addr^(AParametar);
  Exit(TRUE);
end;

procedure TNekaKlasa.NekaMetoda(const AParametar: String);
begin
  ShowMessage(AParametar);
end;

Code:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
  TNekaFunkcija = procedure(const AParametar: String) of object;
  PNekaFunkcija = ^TNekaFunkcija;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function IzvrsiMetodu(const AMetoda, AParametar: String): Boolean;
    { private declarations }
  public

  published
  procedure NekaMetoda(const AParametar: String);

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  IzvrsiMetodu('NekaMetoda','poruka');
end;

function TForm1.IzvrsiMetodu(const AMetoda, AParametar: String): Boolean;
var
  method_addr: PNekaFunkcija;
begin
  method_addr := self.MethodAddress(AMetoda);
  if not Assigned(method_addr) then
    Exit(FALSE);

  method_addr^(AParametar);
  Exit(TRUE);
end;

procedure TForm1.NekaMetoda(const AParametar: String);
begin
      ShowMessage(AParametar);
end;

end.

Code:


type
  TNekaFunkcija = procedure(const AParametar: string) of object;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    function IzvrsiMetodu(const AMetoda, AParametar: String): Boolean;
  public

  published
    procedure NekaMetoda(const AParametar: String);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.NekaMetoda(const AParametar: String);
begin
  ShowMessage(AParametar);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  IzvrsiMetodu('NekaMetoda','poruka');
end;

function TForm1.IzvrsiMetodu(const AMetoda, AParametar: String): Boolean;
var
  Method: TMethod;
  Exec: TNekaFunkcija;
begin
  Method.Code := MethodAddress(AMetoda);
  if Assigned(Method.Code) then
  begin
    Method.Data := Self;
    Exec := TNekaFunkcija(Method);
    Exec(AParametar);
  end;
end;

end.