Sobrescrevendo um evento

{Para executar algo antes do evento Showmodal por exemplo, utilize o seguinte: }
public
function showmodal: integer;

function TMeuForm.Showmodal : integer;
begin
{ Aqui vai tudo que se precisa fazer antes }
result := inherited showmodal;
end;