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

procedure ListboxAddItem(hWnd: HWND; ItemText: array of Char);
var buffer: Array[0..255] of Char;
begin
  buffer := ItemText;
  SendMessage(hwndListbox, LB_ADDSTRING, 0, Integer(@buffer));
end;					

1:
2:

buffer := 'Bla';
ListboxAddItem(hwndListbox, Integer(@buffer));					

1:
2:
3:
4:

procedure ListboxAddItem(hWnd: HWND; ItemText: String); 
begin ´
  SendMessage(hwndListbox, LB_ADDSTRING, 0, Integer(@ItmeText[1])); 
end;					

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

var
  s1, s2: String;
  buffer: array[0..255] of Char;
begin
  lstrcat(buffer, @s[1]);
  { oder }
  s1 := String(buffer)+s2;