Memolara fonksiyon icinden text yuklemek

[z]

Form uzerinde adlari Memo1, Memo2,... seklinde pek cok Tmemo olsun.

Yaz adindaki fonksiyona yazilacak texti ve hangi memoya yazilacagini parametre olarak gondereyim, fonksiyon da bu text mesaji ilgili memoya yazsin.

Nasil yazilir?

[Klein]

procedure TForm11.Button1Click(Sender: TObject);
begin
  MemoWrite('memo1', 'lşdaskşakld');
end;

procedure TForm11.MemoWrite(memo:string; text:string);
var m:TMemo;
begin
   m := TMemo(FindComponent(memo));
   m.Lines.Add(text);
end;