freepascal.compiler/tests/webtbs/tw0932.pp

program test;

{$ASMMODE Intel }

procedure TestProc;
const
  TestConst: String = 'Test';
begin
  asm
    mov edi, offset TestConst
  end;
end;

begin
  TestProc;
end.