RunTime da oluşturulmuş Nesneye Kod

[Commandx]

Arkadaşlar Runtimeda oluşturduğum bir nesneye memo içindeki bir kodu nasıl ekleyebilirim
Çok zor bir soru galiba sanırım
çünkü bununla ilgili hiçbir örnek görmedim
Mesela bir butona tıkladık form üstünde bir panel oluşturmuştuk
fakat bu panele tıklandığındada bir işlem yapmasını istiyorum mesela alttaki gibi
Fakat paneller Runtimeda oluştuğu için işletilecek kodları yazsaktanafile, çünkü ilişkilendirilmemiş bir nesne ve kod bloğu
Aslında çok hoş bir işlem, mesela oluşturulan panelerden birine tıklandığında bir işlem yapmasını istiyorum
Panel click olduğunda sanırım memorynin belli ayrılmış offsetlerine ulaşması gerekiyor
Bunu hiç denemedim

Kod: Tümünü seç

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);


  procedure MusteriEkle(Musteriismi:String);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x:Integer;
implementation

{$R *.dfm}

procedure TForm1.MusteriEkle(Musteriismi:String);
var
MusteriPaneli:array [0..255] of TPanel;
begin

MusteriPaneli[x] := TPanel.Create(ScrollBox1) ;
       With MusteriPaneli[x] Do Begin
       Parent:=ScrollBox1;
      Left := 0 ;
      Top := 15 ;//Sorun Sanırım Buradan Kaynaklanıyor.Çok Yüksek Tutulması Gerekiyor.
      Width := 453;
      Height := 41;
      Align := alTop ;
      Caption := Musteriismi+IntToStr(x) ;
      TabOrder := 0 ;
       end;
       x:=x+1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MusteriEkle('Müşteri');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
x:=0;
end;

end.

[ng]

Eğer daha runtime da oluşturduğun nesneye, derlemeden önceden yazdığın bir procedure ile ilişkilendirmek istersen panel[x].click:=penele_tiklaninca_calisacak_kod;
şeklinde yapabilirsin.
Ama sen, programa bir memo yerleştireyim panele tıklayınca da bu memo alanına yazdığım kodlar çalışsın diyorsan; script componentleri vardı, biryerlerde görmüştüm, onları kullanıp memonun içerisindeki yazının yorumlanmasını sağlayabilirsin.