type
  TThreadObject = class(TThread)
  private
    procedure starVal(const star: string; val1, val2: Integer);
  protected
    procedure Execute; override;
  end;

implementation

{ TThreadObject }

procedure TThreadObject.Execute;
var
  Star: string;
  val1, val2: Integer;
begin
  Synchronize(
    procedure
    begin
      starVal(star, val1, val2);
    end
  );
end;

procedure TThreadObject.starVal(const star: string; val1, val2: Integer);
begin
  // do something here
end;