1:

if Assigned(Self.Edit) then Self.Edit.Text := 'Test';					

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:

//...
type
  TLeseThread = class(TThread)
  private
    FSerial: TSerial;
  protected
    procedure Execute; override;
  public
    property Serial: TSerial read FSerial write FSerial;    
  end;

implementation

{ TLeseThread }

procedure TLeseThread.Execute;
var chr: char;
begin
  While not Terminated do  
    if Assigned(FSerial) then
      if FSerial.TryReadChar(chr) then
      begin
      end;
end;

end.					

1:
2:
3:

Serial := ThreadKompo.Serial;
ThreadKompo.Serial := nil;
FreeAndNil(Serial);					

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:

Type
    TThreadEx = class(TThread)
    Private
        {...}
        FSerial: TSerial;
        {...}
        function GetSerial: TSerial;
        procedure SetSerial(Const Value: TSerial);
        {...}
    Public
        {...}
        property Serial: TSerial Read GetSerial write SetSerial;
        {...}
    end;

{...}

procedure TThreadEx.SetSerial(Const Value: TSerial);
Begin
    If Not Assigned(Value) Then
    Begin
        //Finish the work with the Serial ...
    end;
    FSerial := Value;
end;

Function TThreadEx.GetSerial: TSerial;
begin
    Result := FSerial;
end;