Процедура/функция обратного вызова в классе

class function ...
class procedure ...

type
    MyProc = procedure(const str: string);
 
    TForm1 = class(TForm)
    ...
        class procedure callback(const str: string);
    ...
    end;
 
...
 
class procedure TForm1.callback(const str: string);
begin
  Form1.Memo1.Lines.Add(str);
end;
 
...
 
procedure UseCallbackFunc(proc: MyProc);
begin
  proc('1111');
end;

TForm1.callback('1111');  //  нормально выводит текст в Memo1
UseCallbackFunc(@TForm1.callback);  //  выводит всякий бред в Memo1

    
    TForm1 = class(TForm)
    ...
        class procedure callback(const str: string); static;
    ...
    end;
...
class procedure TForm1.callback(const str: string);
begin
    Form1.Memo1.Lines.Add(str);
end;

type
  TMyClass = class
    private
     x: Integer;
     procedure y;
  end;

type
  TMyClass = class
    private
     x: Integer;
     procedure y;
     z: Extended;
  end;

type
  TMyClass = class
    private
     x: Integer;
     z: Extended;
     procedure y;
  end;

    TForm1 = class(TForm)
    ...
        class procedure callback(const str: string); static;
    ...
    end;
...
class procedure TForm1.callback(const str: string);
begin
    Form1.Memo1.Lines.Add(str);
end;

    TForm1 = class(TForm)
    ...
        class procedure callback(const str: string);
    ...
    end;
...
class procedure TForm1.callback(const str: string);
begin
    Form1.Memo1.Lines.Add(str);
end;