Insertar valores en Combobox

[coej]

Hola de nuevo, por aquí sigo con la biblia de delphi, ahora trabajando con combobox, me gustaría insertar valores para que aparecieran en el combobox, pero al insertar este código, me da error...

Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
   begin
  Form1.Combobox1.items.add('ITEM');

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key = Chr(13) then
with Combobox1 do
if (Text <> '') and (Items.Indexof (Text) < 0) then
Items.Add (Text);
end;


end.

El error es Statement expecte but procedure found, en la línea de procedure, he probado a quitar la procedure, y me da error , violación de escritura, es como si en tiempo de ejecución no pudiera insertar un valor en el combobox..., gracias por las respuestas y comprensión de la tontería que será seguramente, un saludo...