كيفية عدم تكرار الكود؟

[ALG2009]

السلام عليكم

عند كتابة الكود في الـ Edit.text في الفورم مثلا 
ُ
edit1.Text:= DBEdit1.text* Edit2.text

أريد وضع النتيجة(edit1.Text) في الفاست ريبورت دون تكرار العملية مع العلم أني اقوم بكتابة الكود في الفاست ريبورت ايضا

Memo1.text:= DBEdit1.text * Edit2.text
او
Memo1.text:= DBEdit1.text * DBEdit2.text

وقد يكون حقل في الديبيقريد

كيف يمكن تجنب تكرار الكود؟

[larbiparadox]

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
MonText : TfrxMemoView;
begin

TfrxMemoView(frxReport1.FindObject('Memo1')).Text := 'delphi4arab.net';

frxReport1.ShowReport;

end; 


[ALG2009]

[size=small]بارك الله فيك وتقبل الله صيامكم[/size]



لا أدري أين الخطأ

لا يوجد مكون إسمه tfrxMemoView في DataModule هذا هو الخطأ هل من حل

[larbiparadox]

[size=small]بارك الله فيك وتقبل الله صيامكم[/size]



لا أدري أين الخطأ

لا يوجد مكون إسمه tfrxMemoView في DataModule هذا هو الخطأ هل من حل

الخطأ مني لاني لم اشرح جيدا

PHP كود :

uses Unit2, Unit3, frxClass;

procedure TForm1.Button1Click(Sender: TObject);
begin
TfrxMemoView(dmDATA.frxReport1.FindObject('Memo1')).Text := 'delphi4arab.net';

dmDATA.frxReport1.ShowReport;
end; 


أو

PHP كود :

uses Unit2, Unit3, frxClass;

procedure TForm1.Button1Click(Sender: TObject);
var
MonText : TfrxMemoView;

begin

MonText := TfrxMemoView(dmDATA.frxReport1.FindObject('Memo1'));

MonText.Text := 'delphi4arab.net';

dmDATA.frxReport1.ShowReport;
end; 


[ALG2009]

جزاك الله خيرا وأدخلك الجنة