Delphi 多线程传递参数的问题

unit uThread;

interface

uses
  Classes;

type
  Th = class(TThread)
  private
    { Private declarations }
   
  protected
    procedure Execute; override;
  end;

以上是创建的一个多线程
我在另外一个单元里Unit1有一个函数

function Myfun(username,password:string):boolean

现在要把Myfun放到多线程里执行，怎么传递参数呢？
谁有这样的Demo给一个我，帮我讲解一下，感激不尽！我看到网上说有结构体，因本人才学Delphi没多久，不太懂的，希望大牛们指点迷津！

解决方法如下：

// 线程类
unit Unit2;

interface

uses
  Classes;

type
  TMyThread = class(TThread)
  private
    FUserName: string;
    FPassWord: string;
    FFlag: Boolean;
    procedure GetUserName(const Va