据我的理解，并编写测试代码:
var
i,gMC: Integer;
begin
i:=1;
gMC := 3;
while (i <= gMC) do
begin
///////gLuJing 是String类型
///////gmc是图片名称后面的数字，如‘宫内节育器放置1.jpg’
imGongNeiFZ1.Picture.LoadFromFile(gLuJing + '人口计生\计划生育技术服务\宫内节育器放置' + IntToStr(gMC) + '.jpg');
end;
end;
你的问题补充：InToStr 不能用，可能的原因：
1. 最可能的原因：函数名称拼写错误，少了个T，应该是 IntToStr
2. 没有将IntToStr所有的单元文件包含进来(uses，但据我的估计可能性不大，一般来说这个函数所在单元都会缺省引入）。
