lazarus - Lazarus - SelectFirst でエラーが発生する

Question

変更後に最初の項目を選択するコンボボックスを作成しようとしています。私のOSはUbuntu 12.04です。私のコード:

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Buttons, Menus;

type

  { TForm1 }

  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ComboBox1Change(Sender: TObject);
var Text2:String;
begin
  if (Combobox1.ItemIndex = 1) Then
  begin
    Text2 := Memo1.SelText;
    Edit1.Text := Memo1.SelText;
    Memo1.SelText := '[artist]' + Text2 + '[/artist]';
  end;
  if (Combobox1.ItemIndex = 2) Then
  begin
  if (Edit1.Text = '') Then
    ShowMessage('Artist name is not defined') Else
    begin
      Text2 := Memo1.SelText;
      Memo1.SelText := '[album artist=' + Edit1.Text + ']' + Text2 + '[/album]';
    end;
  end;
  if (ComboBox1.ItemIndex = 3) Then
  begin
  if (Edit1.Text = '') Then
    ShowMessage('Artist name is not defined') Else
    begin
      Text2 := Memo1.SelText;
      Memo1.SelText := '[track artist=' + Edit1.Text + ']' + Text2 + '[/track]'
    end;
  end;
  if (ComboBox1.ItemIndex = 4) Then
  begin
    Text2 := Memo1.SelText;
    Memo1.SelText := '[label]' + Text2 + '[/label]';
  end;
  if (ComboBox1.ItemIndex = 5) Then
  begin
    Text2 := Memo1.SelText;
    Memo1.SelText := '[tag]' + Text2 + '[/tag]';
  end;
  Combobox1.SelectFirst;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Text := 'Select an item';
end;

end.

unit1.pas(74,13) Error: identifier idents no member "SelectFirst" というエラーが発生します。

どうすればこれを修正できますか?