有一组有一定规律数字,谁能帮我看看如何写这个函数(30分)

(101-199) 到(9901-2099)
用四个edit录入数字,如何写这个函数.
可以分折成:
左边是1到99;
右边是01到99;
我是这样写的:
var
L, R, fanhao:Integer;
begin
for L := StrToInt(LNumBegin.Text) to StrToInt(LNumEnd.Text) do
for R := StrToInt(RNumBegin.Text) to StrToInt(RNumEnd.Text) do
begin
fanhao := IntToStr(L) + '0' + IntToStr(R)
end;
end;
可是,如果右边的数字大过9就出问题了,本来是110的,变成1010了,谁能帮我改一下!

fanhao := IntToStr(L*100＋R)

接受答案了.