[[Caral]]

Hola
abria que ver como lo estas haciendo, no crees, similar es muchas cosas.
El codigo que lo le funciono a gelitus, era por una simple mala colocacion del begin.
En tu caso, que sera?.
Analiza este:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  n:integer =40;
var
  Form1: TForm1;
  clases: array[1..5] of string;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   clases[1]:='Asietos';
  clases[2]:='Caño de Asiento';
  clases[3]:='Collar izq';
  clases[4]:='Cuadro';
  clases[5]:='Orquilla';

  for i:=1 to 5 do
    begin
      Form1.ComboBox1.Items.Add(clases[i]);
    end;
end;

es el mismo que el de arriba solo que ordenado, pruebalo.
Saludos