...get caller information?

Use Caller function of TEurekaStackList class from ECallStack unit:

uses
  ECallStack, // for TEurekaStackList
  EClasses,   // for TELLocationInfo
  EDebugInfo; // for GetLocationInfo
 
procedure TForm1.Button1Click(Sender: TObject);
 
  procedure Test;
  var
    Caller: Pointer;
    Info: TELLocationInfo;
  begin
    Caller := TEurekaStackList.Caller;

    // Once caller is obtained - you can use it
    Info := GetLocationInfo(Caller);
    Label1.Caption := Info.UnitName + '.' + Info.ClassName + '.' + Info.ProcedureName;
    // Will output: 'Unit1.TForm1.Button1Click'
  end;
 
begin
  Test;
end;

Note: we recommend that "Stack Frames" option should be enabled.

See also: