[davidgaldo]

unidades:='!!Alarma: Reponer =';
adotalm.first;
while not adotalm.Eof do begin
if adotalm['UNIDADES']<adotalm['MIN'] then
begin
alarma:=true;
unidades:=unidades+'//'+adotalm['REF'];
end;
adtalm.next;
end;