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

.data
  msgCaption db "Add two Strings",0
  
  Texta db "String eins ",0
  Textb db "String zwei",0
  Textc db " ",0
.code

start:
;    mov eax, offset mTextc
  lea eax, Texta
  lea ebx, Textb
  add eax, ebx
  mov offset Textc, eax					

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

  lea eax, Texta
  lea ebx, Textb
  add eax, ebx
  lea ebx, offset Textc
  mov ebx, eax
    
  
  invoke MessageBox, NULL, ebx, addr msgCaption, MB_OK					

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

.data
  TextA db "String eins ",0
  TextB db "String zwei",0
.code

start:
  lea eax, offset TextA
  lea edx, offset TextB
  invoke lstrcat, eax, edx
  
  invoke MessageBox, NULL, eax, addr msgCaption, MB_OK					

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

procedure TForm1.Button1Click(Sender: TObject);
var
    str_1, str_2   :  string;
    pstr_1, pstr_2 : ^string;
begin
    str_1  := 'StringNumber1' +#0;
    pstr_1 := @str_1;
    str_2  := 'StringNumber2' +#0;
    pstr_2 := @str_2;
    if not (lstrcat(@pstr_1, @pstr_2)=nil) then
  //      ShowMessage(pstr_1^);
end;					

1:
2:
3:
4:
5:

function lstrcat(lpString1:LPTSTR; lpString2:LPTSTR): LPTSTR; stdcall;
[...]
implementation
[...]
function lstrcat; external kernel32 name 'lstrcat';