Cómo capturar el objeto al que he dado clic

[Badillo]

Saludos,

Adjunto un ejemplo.

Pasos a seguir:
1. click en el botón 7
2. poner texto en cualquiera de los dos edit que están en TabSheet7
3. hacer click en el botón 6 (se disparará el evento OnExit del PageControl)
4. Realizará lo que está en el evento OnExit del PageControl
5. No continua con la acción del botón 6 que fué donde dió click, sino que se queda en el PageControl en la misma página

Código Delphi [-]
procedure TForm1.PageControl1Exit(Sender: TObject);
begin
  if PageControl1.ActivePage = TabSheet7 then
    if (Edit1.Text <> '') or (Edit2.Text <> '') then
      if MessageDlg('Desea guardar la información',mtConfirmation, mbOKCancel, 0) = mrOk then
        SaveInfo;

  // Ejecutar el evento del botón donde se haya dado click
  // Cómo identifico en que botón se dió click
  // Cómo hago para que en vez que quedarse en el TabSheet7 se ejecute el evento onclick del botón donde se haya dado click
end;