过程的嵌套！求助！！

Question

有两个过程如下：
(1):调用服务器的函数LoadSig如下：
procedure Tmain.rot();
var
   RCount,i:integer;
   IDay,Sigay,Citay,Cosay,Whoay,Telay,Faxay,Adday,Emaay,Posay,Maiay,Desay:OLEVariant;
   ErrorInfo:string；
begin
FCl.LoadSig ( RCount,IDay,Sigay,Citay,Cosay,Whoay,Telay,Faxay,Adday,Emaay,Posay,Maiay,
    Desay,ErrorInfo)；
if RCount > 0 then
 begin
 IncomeComboBox.Items.Clear;
 for i:=0 to RCount - 1 do
 begin
  IncomeComboBox.Items.Add(Sigay[i]);
end;
end;
end;
另一个过程调用服务器的另一个函数LoadShopp如下：
  var
  ReCount,i:Integer;
  IDay,Shoppay,Citay,Whoay,Telay,Emaay,Faxay,Adday,Desay:OLEVariant；
  ErrorInfo:string
begin
 FCl.LoadShopp(ReCount,IDay,Shoppay,Citay,Whoay,Telay,Emaay,Faxay,Adday,Desay,ErrorInfo)；
 if ReCount > 0 then
 begin
   IncomeComboBox.Items.Clear；
   for i:=0 to ReCount - 1 do
   begin
    IncomeComboBox.Items.Add(Shoppay[i]);
   end;
 end；
end;
我想让两个过程嵌套，在一个过程中调用另一个过程，在同一个ComboBox中（即IncomeComboBox）显示IncomeComboBox.Items.Add(Sigay[i])和IncomeComboBox.Items.Add(Shoppay[i])；所要显示的信息，应该怎么做呀！上帝呀帮帮我吧！

Answer 1

你的代码格式也太乱了，难怪没人看
你要怎么嵌套呢？又要什么效果？两个Record的内容都加在ComboBox里？说实话我没理解。