1:
2:
3:
4:
5:
6:
7:

procedure chaten();

begin

asm

  PUSH 'Ich liebe euch alle!!!'

  CALL 400456

end;

end                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

// Pseudocode:
s: string;
s2: PChar;
begin
  s := 'Das ist ein Test';
  s2 := PChar(s);
  asm
    push s2
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure Foo;
asm
    PUSH OFFSET [@@StrVarPtr+8]
    CALL Bar
    JMP @@E

@@StrVarPtr:
    DD -1 //Reference Count: Constants have ALWAYS -1
    DD 12 // String Length, not including the 0 terminator
    DB 'Hello World!', 0 //Actual String Data, The NULL Byte is recommended (and some Str-Routines really require it!
@@E:
end;