for i:=1 to n do
  begin
    tempname[1]:=format('edit%d',[i]);
    tempname[2]:=format('combobox%d',[i]);
    if tedit(findcomponent(tempname[1])).text='' then
      begin
        showmessage(tempname[1]+'为空');
        break; 
      end
    else
    if tcombobox(findcomponent(tempname[2])).text='' then
      begin
        showmessage(tempname[2]+'为空')
        break;
      end;
  end;

楼上的哥哥：不好意思哈，我还是有点不懂：
　　该定义哪些变量？分别怎样定？
　　edit和combobox需要设置吗？

不用设置
var
 tempname:array[1..2]of string[10];
 i:word;

那个n是控件的总数
比如,如果到combobox10,,那么n=10;直接写上就行了

多谢楼上哥哥，按照此法已成功!
但还是有个问题：提示信息出来后若不管它继续按确定，
程序会出现异常，怎么要它一直提示直到数据输完为止？

你这代码放哪啊...完整代码贴出来看看

我知道了，设置焦点就不会出问题了