Hvordan udnytter man information fra "Sender"

IF Sender = Button1 THEN
BEGIN
END
ELSE
IF Sender = Button2 THEN
BEGIN
END;

objektets venstre side=properties/Events

if TButton(sender).Name='But1' then ...

else

if Sender as Tbutton.Caption='Send' then
eller f.eks

case Tbutton(Sender).Tag og
  1: DoSomeThing;
  2: DoSomeThingElse;
end;

hvis denne konstruktion skal bruges
"if TButton(sender).Name='But1' then"
så husk at undersøge om Sender IS TButton ellers sker der exceptions hvis sender er af anden type af TButtons eller hvis den ikke er nedarvet fra TButtons.

f.eks. Hvis du vil ændre en buttons position kan du benytte følgende syntax

WITH (Sender AS TButton) DO
BEGIN
  Left := 10;
  Top  := 10;
END;

Mange tak, det var lige det jeg havde brug for...