Campo tipo float, imprimir String numa determinada condição

Companheiros, tenho um campo do tipo float chamado qdvend. Neste campo serão listadas as quantidades dos itens vendidos. Acontece que meu cliente, que está encomendando o software, quer uns detalhes do tipo: 1º - Listar no relatório de Orçamento, todos os itens. Já fiz.
2º - Após listar, os itens que não foram vendido, deverãos ser marcado
com um traço(-) e os itens vendidos, com as respectivas quantidades. Coloquei um QRLabel, e no caption dele o valor de qrvend, se este for maoir que zero, caso contrário QRLabel.Caption := ´-´; Assim fazendo, ele não preenche o QRLabel caso o qdvend seja maior que um. Creio que o erro está no LOOP´. Veja a rotina:

procedure TfrmVenda.sbPreviewClick(Sender: TObject);
begin
frmRelOrca.venda.First;
while not frmRelOrca.venda.eof do begin
if frmRelOrca.Vendaqdvend.Value > 0 then begin
frmRelOrca.qrlabel1.Caption:=FloatToStr(frmRelOrca.vendaqdvend.Value);
end else
if frmRelOrca.Vendaqdvend.Value = 0 then begin
frmRelOrca.qrlabel1.Caption:=´-´;
end;
frmRelOrca.venda.Next;
end;
Mudei o LOOP, aí inverteu, ou seja, o QRLabel veio com o caption igual
ao valor do primeiro qdvend. Tipo tudo 1, por exemplo. Qdvend é do tipo
Float.
end;