Hide в Show Опции

[sheka]

Вроде было где-то, не нашел
Нужно сделать Hide из Show. Раньше как-то обходил, а тут приспичило: есть большой проект, есть формочки перед началом работы, в которых надо нажимать одни и те же кнопки, т.е. при показе формы хочу нажать на кнопку, а на кнопке стоит Hide. Чего делать?

[TarasBer]

procedure DoClick(Hide: boolean);
begin
   ...
end;

procedure OnMyButtonClick;
begin
  DoClick(True);
end;

procedure OnMyFormShow;
begin
  DoClick(False);
end;