كيف ادخال عدد طوله اكثر من 12 رقم

[محمد عبد العزيز]

كود :

var i :Integer; X, Y : int64 ; begin X := StrToInt64(MaskEdit1.Text); Y := StrToInt64(MaskEdit2.Text); i:= X- Y; Memo1.Clear; if i < 0 Then For i:= 0 To Abs(i) Do Memo1.Lines.Add(Format('%.*d', [12,X+i])) Else For i:= i DownTo 0 Do Memo1.Lines.Add(Format('%.*d', [12,X-i])); end;