请问delphi中procedure应该如何使用，下面有一段程序请问错误在哪里，谢谢各位

[cxyqnl]

下面有一段程序：procedure TfrmCreep.FormCreate(Sender: TObject);
var
I:integer;
begin
Steel_type:='普通钢材';
for I:=1 to frmCreep.ComponentCount do
begin
if frmCreep.Components[I-1] is TComboBox then
(frmCreep.Components[I-1] as TComboBox).Text:=
(frmCreep.Components[I-1] as TComboBox).Items[0]
end;
RadioButton1Click(Self);
DbGrid1.Visible := True;
DbGrid1.Height := 158;
DbGrid1.Width := 414;
GroupBox1.Visible := False;
GroupBox2.Visible := False;
Label11.Visible := False;
Label12.Visible := False;
Label13.Visible := False;
Label14.Visible := False;
cbLqi.Visible := False;
cbCHe.Visible := False;
cbStartTime.Visible := False;
cbFckAfterCreep.Visible := False;
cbTubeStyleClick(self);
cbDataBaseClick(self);
end;
提示第一行[Error] creep.pas(871): Statement expected but 'PROCEDURE' found应该怎么处理

[kyle_huang]

代码没写完。

你再双击下窗体，就进入到了FromCreate，再把你的代码写到里面去试试。

[cxyqnl]

谢谢，各位