testlot.dpr

姓名缘分测试之Delphi版

program TestLot;

uses
  Forms,
  UCountStroke in 'UCountStroke.pas' {frmTestlot};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '姓名缘分测试';
  Application.CreateForm(TfrmTestlot, frmTestlot);
  Application.Run;
end.