Fórum valores duplicados em tdictionary delphi #617149

type TLancamentos = class
	private
		contaDebito: String;
		contaCredito: String;
end;

{ Private declarations }
listaLancamentos2: TDictionary<String, TLancamentos>;

var
	vI: Integer;
	lancamento: TLancamentos;
begin
	try
		if not Assigned(listaLancamentos2) then
			listaLancamentos2 := TDictionary<String, TLancamentos>.Create;

		for vI := 0 to 5 do
		begin
			lancamento := TLancamentos.Create;

			lancamento.contaDebito := FormatFloat('000', vI+100);//'111'; //valor fixo: na segunda passagem pelo 'for' vai acusar duplicidade
			lancamento.contaCredito := FormatFloat('000', vI+500);//'555'; //valor fixo: na segunda passagem pelo 'for' vai acusar duplicidade

			//if not listaLancamentos2.ContainsKey(lancamento.contaDebito) then
			listaLancamentos2.Add(lancamento.contaDebito, lancamento);

			//if not listaLancamentos2.ContainsKey(lancamento.contaCredito) then
			listaLancamentos2.Add(lancamento.contaCredito, lancamento);
		end;

		for lancamento in listaLancamentos2.Values do
			ShowMessage(lancamento.contaDebito + ' ' + '-' + lancamento.contaCredito);
	finally
	end;
end;