Делфи, алгоритм.

[Coyot]

Собственно задание:

Дано натуральное число k. Определить k-ю цифру в последовательности
110100100010000100000 . . . , в которой выписаны подряд степени 10.


есть вот такая вот идея:

procedure TForm3.BtnRasClick(Sender: TObject);
var
k,i: integer;
j: int64;
S: String;
begin
k:=StrToInt(Edit1.text);
for i:=0 to 21 do
begin
S:=S+FloatToStr(exp(i*ln(10))); end;

LblNom.caption:=S[k];
end;


Но работает она не совсем верно, так как стринг имеет всего 256 знаков.