if timeStop= false then
begin
Procemax(InputVoltage,MaxInVoltage);
Procemax(OutputVoltage,MaxOutVoltage);
timeStop:= true;
//frmStar.btnRun.Click;  //如果你這樣寫可以達到目的話，那這行改成下方這樣，讓系統幫你呼叫！
SendMessage(frmStar.btnRun.Handle, BM_CLICK, nil, nil);
AOVoltVal:=AOVoltVal jdx;
jdx:=jdx 1;
end;

for jdx:= 1 to 300 do
begin
  AOVoltVal:=AOVoltVal jdx;      // frmStar.btnRun.Click;//讓frmStar的function run
  frmStar.btnRun.OnClick(nil); // 改成直接呼叫OnCLick事件(其實就是個procedure)
  //這樣就會等該程序執行完後才會繼續下一行程式
  //--------想等function跑完時傳回timeStop= false
  //------run if 裡面的程式      if timeStop= false then
  begin
    Procemax(InputVoltage,MaxInVoltage); 
    Procemax(OutputVoltage,MaxOutVoltage);        timeStop:= true;
  end;
  //------run 完後再做jdx=2...3...4.....到300
end;     

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;    type
  TfmStar = class(TForm)
    btnRun: TButton;
    Timer1: TTimer;
    btnStop: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure btnRunClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  fmStar: TfmStar;    implementation    {$R *.DFM}
const MaxIndex = 300;    var
   AOVoltVal, iCurrentIdx:integr;
   bStopRun:Boolean;    procedure TfmStar.RunVolCalc;
begin
   //Do anything with AOVoltVal       //如果裡面需要有迴圈 利用bStopRun來回應 btnStop.Click中斷
   While (not bStopRun) and (...) do
   begin
     //do something
   end;       //on finished, we trigger the following procedures
   if not bStopRun then //user 未按下停止
   begin
      Procemax(InputVoltage,MaxInVoltage);
      Procemax(OutputVoltage,MaxOutVoltage);
      Timer1.Enabled:=True; //go to the next iCurrentIdx
   end;
end;    procedure TfmStar.Timer1Timer(Sender: TObject);
begin
   Timer1.Enabled:=False;
   inc(iCurrentIdx);
   if i<=MaxIndex then
   begin
      AOVoltVal:=AOVoltVal iCurrentIdx;
      RunVolCalc;
   end;
end;    procedure TfmStar.btnRunClick(Sender: TObject); //開始
begin
   iCurrentIdx:=0;
   Timer1.Enabled:=True;
   bStopRun:=False;
end;    procedure TfmStar.btnStopClick(Sender: TObject); //停止
begin
   iCurrentIdx:= MaxIndex 1;
   Timer1.Enabled:=False;
   bStopRun:=True;
end;    procedure TfmStar.btnSuspendClick(Sender: TObject); //暫停
begin
   Timer1.Enabled:=False;
   bStopRun:=True;
end;    procedure TfmStar.btnResumeClick(Sender: TObject); //繼續
begin
   bStopRun:=False;
   Timer1.Enabled:=True;
end;    end.    

引言: deal all: 想問一下如何讓for暫停呢？因為我要在jdx＝１時啟動跑一個function等到function跑完時回傳 timeStop= false 再跑jdx＝2以些類推，可是我發現for會一直跑不會停下來，要怎麼做呢?

for jdx:= 1 to 300 do
 begin
    AOVoltVal:=AOVoltVal jdx;        if jdx= 1 then
    begin  
     frmStar.btnRun.Click;//讓frmStar的function run
     //--------想等function跑完時傳回timeStop= false
     //------run if 裡面的程式
                                
     if  timeStop= false then
     begin
            Procemax(InputVoltage,MaxInVoltage);
            Procemax(OutputVoltage,MaxOutVoltage);
 
            timeStop:= true;
     end;
    end;
//------run 完後再做jdx=2...3...4.....到300
end;