Como melhorar esse código?

Olá pessoal,

Uso Delphi 7, e tenho um AdvPageControl que contém várias abas e em cada aba um ADVMemo. Como são 20 abas, são 20 ADVMemos. O que eu quero fazer? Tenho uma grid e nela várias tabelas. Quero que ao clicar 2X num registro, o nome da tabela seja jogado para um ADVMemo situado na aba ativa do AdvPageControl. Para isso estou fazendo o seguinte trabalho de doido:

>

procedure TFrmMenuPrincipal.PreencheMemo(pNome : String);
Var
X, Y, C : Integer;
begin

 C:=AdvPageControl3.ActivePageIndex;

 If C = 0 Then
 Begin
 Y:=TxtMemo1.SelEndY;
 X:=TxtMemo1.SelEndX;
 TxtMemo1.InsertTextAtXY(pNome, X, Y);
 End
 Else
 If C = 1 Then
 Begin
 Y:=TxtMemo2.SelEndY;
 X:=TxtMemo2.SelEndX;
 TxtMemo2.InsertTextAtXY(pNome, X, Y);
 End
 Else

 If C = 2 Then
 Begin
 Y:=TxtMemo3.SelEndY;
 X:=TxtMemo3.SelEndX;
 TxtMemo3.InsertTextAtXY(pNome, X, Y);
 End
 Else

 .
 .. E assim vai até o vigésimo Memo.

end;

Como eu poderia melhorar esse código para fazer o que preciso de forma bem mais profissional?

Grato,

Ilano.