有关调用其他窗体的自定事件！
窗体A有一个按钮Button1，B窗体有一事件TfrmCMain.Open。要怎么样才能使按下A窗体的按钮而执行B窗体的事件呢？

procedure TForm1.Button1Click(Sender: TObject);
begin
TfrmCMain.Open;//这是我使用的代码，提示[错误] Undeclared identifier: 'TfrmCMain'
end; //[致命错误] Could not compile used unit 'Unit1.pas'



procedure TfrmCMain.Open;
var
a:string;
begin
a:='hhhbbbccc'
end;

[解决办法]
你的程序第一个问题：上面的B= record 应改为BB= record
第二个是：
HH.DD:=7000 ' ;//为什么这里出错了呢？[错误] Incompatible types: 'Integer ' and 'String '
7000不能加引号，因为HH.DD为整形，所以所赋值也改须为整型