Colocar dois campos entre um memo?

Bom dia amigos delphianos, venho pedir humildemente a ajuda de voçes para um problema em questão.

Bom tenho um memo que recebe um valor de um campo de um label, gostaria de saber se tem como incluir outro campo tambem:
Explicando
tenho uma tabela chamada Historico Padrão, bom la estaum todos dados sobre historico padrão.
Em outro form quero fazer os lançamentos, entaum criei um edit que pega o codigo do historico padrão por um locate e joga o campo descrição dentro de um label e depois passa do labem para um memo (Caso precise completar algo mais) tipo:

no label esta assim:
Pg. Duplicata nr:
bom ai joga para o memo para eu completar com o numero que fica assim
Pg. Duplicata nr: 0015/4 - Empresa Tal Ltda.
Bom ai tive a ideia de colocar mais um campo na tabela HPadrao para completar com o nome da empresa, assim economiza tempo e só digitaria o nr.da Duplicata.

No memo tenho este codigo

IF label1.caption = ´´ THEN //condição se naum tiver nada no label vai pro começo da linha do memo
BEGIN
memo1.Text := memo1.Text + ´´;
Keybd_Event(VK_End, 0, 0, 0);
END ELSE
memo1.Text := memo1.Text + ´ ´; //condição se tiver algo no label vai pro final do texto no memo
Keybd_Event(VK_Home, 0, 0, 0);

Bom aqui ele fica certo tipo estas condições servem para se eu tiver algo no label ele joga no memo e o cursor do memo vai para o final do texto.

Bom agora gostaria de saber se tem como colocar o resto ou seja como escrevi acima dentro do memo só vou digitar 0015/04 ai depois completar com o resto do campo que ja esta gravado na tabela hpadrao Empresa Tal Ltda.

Acho que escrevi muito talvez até voçes se cansem de ler, mais tentei explicar o melhor que pude.

Gradecido pela ajuda.