Problema Em Caixa, Delphi XE10

Estou desenvolvendo um sistema e estou com problema no caixa, vou disponibilizar as fotos em drive.

tenho um formulário de históricos onde vai (o nome e o tipo)''''débito ou credito''''.
e um formulário de lançamentos
No formulário de lançamentos há os campos (Histórico) e (Tipo) ''''que seria débito ou credito''''.
mas eu n estou conseguindo puxar o tipo de pagamento de acordo com o do histórico cadastrado.

IMAGENS(https://drive.google.com/open?id=1svS0mdrYDaEqNFApdE6_qAr8afH83c8K)