unit YaMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, YaTask, Menus;

type
TMainForm = class(TForm)
TPNameBox: TEdit;
(中略)
TaskOrder: TMemo;
procedure TaskStartBtnClick(Sender: TObject);
procedure O1Click(Sender: TObject);
procedure S1Click(Sender: TObject);
procedure X1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;

var
MainForm: TMainForm;
PresentTP: String;
TAD, AAD: array[1..100] of Integer;


implementation

{$R *.dfm}

procedure TMainForm.TaskStartBtnClick(Sender: TObject);
begin
TAD[1] := 5; AAD[1] := 9
TaskForm.ShowModal
end;