skrif font i RichEdit felt

Her er et lille eksemple:

function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
  FontType: Integer; Data: Pointer): Integer; stdcall;
begin
  TStrings(Data).Add(LogFont.lfFaceName);
  Result := 1;
end;

procedure GetFontNames(List:TStrings);
var
  DC: HDC;
begin
  DC := GetDC(0);
  EnumFonts(DC, nil, @EnumFontsProc, Pointer(List));
  ReleaseDC(0, DC);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox2.Items.Add('8');
ComboBox2.Items.Add('10');
ComboBox2.Items.Add('12');
ComboBox2.Items.Add('14');
ComboBox2.Items.Add('16');
ComboBox2.Items.Add('18');
ComboBox2.Items.Add('20');
ComboBox2.Items.Add('22');
GetFontNames(ComboBox1.Items);
end;


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
RichEdit1.SelAttributes.Name:=PChar(ComboBox1.Text)
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
RichEdit1.SelAttributes.Size:=StrToInt(ComboBox2.Text)
end;

Alt virker undtagen

procedure TForm1.FormCreate(Sender: TObject);

den skriver :
[Error] Unit1.pas(135): Undeclared identifier: 'FormCreate'

kan du forklare hvorfor?
for jeg kan jo regne ud at den er lidt vigtig at have med!

\\izemate

og hvis jeg sætter alle combox2.items.add osv ind under min combox2 formel
og også den der GetFontNames(ComboBox1.Items); ind under min Combox1 vil den godt afvikle programmet men der sker igenting i mine combox :) Please Help me

\\izemate

Okay
Nu har jeg bare selv addet items = size nummerne i combox2 og det virker
og det samme hvis jeg selv adder hvad skrift typerne hedder :\ men jeg ville jo gerne havde sådan at der dukkede de skrift typer op som man har installeret på sin com...

\\izemate

hvis du dobblet klikker på din form, laver den selv proceduren

procedure TForm1.FormCreate(Sender: TObject);
begin
end;

også smidder du bare hans kode ind der.

håber du kunne bruge det.