вылетает на любом виде потоков

[vsrmis]

вот такой голый код

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs; 

type

  { TForm1 }

  { TMythread }

  TMythread = class(TThread)
       protected
       procedure Execute; override;
  end;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
   T:TMythread;
begin
   T := TMythread.Create(False);
end;

{ TMythread }

procedure TMythread.Execute;
begin
  //inherited Execute;
end;

initialization
  {$I unit1.lrs}

end.

Вылетае при Create с ошибкой RunEror(232), если раскомантировать
inherited Execute; не компилирует ругается на абстрактные классы.

вот такая история

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs; 

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation
function fpc_thread(parameter: pointer): ptrint;
begin
  // thread code
end;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
I:Integer;
begin
   handle := BeginThread(@fpc_thread,Addr(I));
end;

initialization
  {$I unit1.lrs}

end.

Выллетает при начинании треда.
если вместо Addr(I) поставить nil результат анологичен.

Lazarus, Linux.

[Просто лис]

Вообще то в Паскале ООП не предусмотрен и невиг лезть в него с потоками, учи С++ и будет тебе счастье.

[ViktorR]

Делал в Delphi открытие отдельного потока, ну очень давно.
Так что все детали см. во вложении. Даже на источник не могу сослаться.
Трудно утверждать, что поможет, но может быть и толк?!
Об основной программе: Оконный интерфейс к исполняемому модулю, который удаляет файлы с предварительной их перезаписью (безопасность).
Общий смысл состоял в том, что при одновременном удалении файла каким либо менеджером оконный интерфейс отображал истинное состояние дел.
Пример: Откройте один и тот же каталог Проводником и FAR'ом. Если Проводником удалить файл, то окно FAR'а обновится.♠

[mss]

Для никсовых аппликаций солюшн , касаемый RunEror(232) при старте тредов, - поместить юнит cthreads первым в статью uses проекта (lpr).
Вероятно и для виндовых аппликаций решение такое же, с той лишь разницей что треды виндовых аппликаций поддерживаются юнитом с иным именем (не помню каким)