var
last1,last2, aux:TBcd;
begin
Last1:=StrToBcd('0');
Last2:=StrToBcd('1');
Aux :=StrToBcd('0');
while true do begin
BcdAdd(Last1,Last2,Aux); Last1:= last2;
Last2:=Aux;
if Length(BcdToStr(Aux))= 21 then
begin
ShowMessage(BcdToStr(Last1)); Exit;
end;
end;
end;