end;

procedure TForm1.Button7Click(Sender: TObject);
begin

end;

procedure TForm1.N3Click(Sender: TObject);
begin
ShowWindow(h_cal,SW_hide);
end;

procedure TForm1.N11Click(Sender: TObject);
begin
TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),strtoint(s_proc )),strtoint(s_proc));
end;

procedure TForm1.N10Click(Sender: TObject);
begin
form1.Hide;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
form1.Close;
end;

end.