Generating an Ethereum-signed message signature in Delphi

Unit1.pas

uses
  web3.eth.crypto, web3.eth.types;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(
    web3.eth.crypto.sign(
      TPrivateKey('b5b1870957d373ef0eeffecc6e4812c0fd08f554b37b233526acc331bf1544f7'),
      'Hello, World!'
    ).ToHex
  );
end;