1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

type TDrawThread = class(TThread)
  Ident: String;
  procedure SetName(Name: String);
public
  procedure Execute(); override;
  property ThreadName: String read Ident write SetName;
end;

implementation

procedure TDrawThread.SetName(Name: String);
begin
  Ident:=Name;
end;

procedure TDrawThread.Execute();
var Loop: Boolean;
begin
  while Loop do
  begin
    Form1.FindComponent('Draw' + ThreadName);
    Sleep(10);
  end;
end;



procedure TForm1.DrawPlane();
(...)
procedure TForm1.DrawCurve(XOffset: Integer; YOffset: Integer; Size: Integer);
(...)

procedure TForm1.FormCreate(Sender: TObject);
begin
  CurveThread:= TDrawThread.Create(true);
  PlaneThread:= TDrawThread.Create(true);


  PlaneThread.ThreadName:='Plane';
  CurveThread.ThreadName:='Curve';

end;