TObject.Name ????

[jbg]

Du hast doch eine Referenz auf die Komponente (Sender-Variable). Vergleiche die doch mit den "original" Referenzen der Komponenten. Das geht allemal schneller als ein String-Vergleich.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObejct);
begin
  if Sender = btnOk then
    ...
  else if Sender = btnCancel then
    ...


  if (Sender as TComponent).Name = 'btnOk' then
    ...
  else if (Sender as TComponent).Name = 'btnCancel' then
    ...
end;