[Aristarh Dark]

Ты бы описал процедуру-то в коде...

Код:

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type
  TForm1 = class(TForm)
  private

  public

  end;

  { TMyThread }

  TMyThread = class(TThread)
  private
  protected
  procedure Execute; override; // тут больше не выдает ошибку
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}
 { TMyThread }

 procedure TMyThread.Execute;
 begin

 end;


end.