Запуск нескольких приложений из моего

[DrBAXA]

Чтото в проге потоки не работают.
Чтоби разобратса легче било создал етот проект-макет

unit ElectroEmul;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CategoryButtons, StdCtrls, ExtCtrls, Menus;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TH = class(TThread)
  private
    procedure Execute; override;
  public
    constructor Create(a:boolean);
  end;


var
  THR:TH;
  Form1: TForm1;
  o:boolean;
implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
  while true do begin
    THR.Resume;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
o:=not o;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
o:=true;
THR:=TH.Create(true);
end;

{ TH }

constructor TH.Create(a: boolean);
begin
 inherited Create(a);
end;

procedure TH.execute;
var i:integer;
begin
i:=0;
  while true do begin
    if o  then begin
      if i<100 then i:=i+1 else i:=0;
      sleep(1000);
    end;
  end;
end;

end.

Что не так? А то с потоками дело впервие имею, наверное чтото совсем простое не понимаю.

[Stilet]

while true do begin
THR.Resume;
end;

Цикл убери.

procedure TH.execute;
var i:integer;
begin

Тут еще inheride кажись нужно...

[DrBAXA]

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

Цикл убери.

Да здесь детская ошибка

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

Тут еще inheride кажись нужно...

Ето попробую когда дома буду.
Спасибо!