Программирование Delphi

Строку текста в ListBox можно добавить при помощи функции API SendMessage.

Для выполнения следующего кода добавьте на форму два компонента: TListBox и TButton. Имена компонентов остаются по умолчанию. Добавьте код, который приведен ниже в событие Click компонента TButton и выполните программу.

Пример

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(
      ListBox1.Handle,
      LB_ADDSTRING,
      0,
      integer(pchar('http://delphiru.ru')));
end;

Пример работающей программы можно скачать здесь.