Добавление текста в listview

[bulldog5293]

Спс, вроде получается, но вроде получается, но нечего не отображается, на своём опыте думаю что это связанно с тем что раньше я добавлял так Form2.ListView1.Items.Item[0].SubItems.add(Copy(str,Pos('view.ph p?ad=',str)+12,7));
а теперь пробую так
LST.SubItems.add(str);

[Sanprof]

unit Unit1;

uses ......, ListThreads;

.......

var
  Form1: TForm1;
  LST: TListItem;
  potok: TListThread1;

const
  MassWord: array[0..4] of String = ('123', '234', '345', '456', '567');

implementation

........

procedure TForm1.Zapolnenie;
var
  i: integer;
begin
  LST := ListView1.Items.Add;
  LST.Caption := 'тра-ля-ля';
  ListView1.Columns.Add;
  LST.SubItems.add('тра-ля-ля');
  i := 0;
  ListView1.Columns.Add;
  while i <= length(MassWord)-1 do
  begin
    LST.SubItems.Add(MassWord[i]);
    ListView1.Columns.Add;
    inc(i);
  end;
  potok.Terminate;
end;

а теперь юнит потока

unit ListTreads;

interface

uses
  Classes, ComCtrls;

type
  TListThread1 = class(TThread)
  private
  protected
    procedure Execute; override;
  end;

implementation

uses Unit1;

procedure TListThread1.Execute;
begin
  while not Terminated do
    Synchronize(Form1.Zapolnenie);
end;

end.

в итоге все заполняется
123.jpg

[bulldog5293]

получилось, ток с этим не разобрался

procedure TListThread1.Execute;
begin
while not Terminated do
Synchronize(Form1.Zapolnenie);
end;

так работает, но вылетает с ошибкой, Zapolnenie я заменил на Button1Click, но не чё придумаю как добавить, всем спасибо

[Sanprof]

Сообщение от bulldog5293

получилось, ток с этим не разобрался

procedure TListThread1.Execute;
begin
  while not Terminated do
    Synchronize(Form1.Zapolnenie);
end;

здесь говорится, что поток, а именно процедура Zapolnenie будет выполнятся в главном потоке до тех пор пока наш поток не будет остановлен