Se puede hacer un array de procedures

[pcicom]

claro que yes.. pero te convendria mejor del combo un CheckListBox..

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin

   CheckListBox1.Items.Add('PERAS');
   CheckListBox1.Items.Add('MANZANAS');
   CheckListBox1.Items.Add('UVAS');

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
Var i:integer;
begin


   For i:= 0 to CheckListBox1.count -1 do
   begin
      if CheckListBox1.Checked[i] then
      begin
         if CheckListBox1.Items.Strings[i]='PERAS' then peras
         if CheckListBox1.Items.Strings[i]='MANZANAS' then manzanas
         if CheckListBox1.Items.Strings[i]='UVAS' then uvas
      end;
   end;

end;

procedute TForm1.Peras;
begin
   //Tu Codigo
end;
procedure TForm1.Manzanas;
begin
   //Tu Codigo
end;

procedure TForm1.Uvas
begin
   //Tu Codigo
end;

Ufff.........