在迴圈中跳脫控制，執行其他功能

在迴圈中加入　Application.ProcessMessages;
EX：
procedure TForm1.BitBtn1Click(Sender: TObject);
var I : Integer;
begin
　IF TBitBtn(Sender).Tag = 1 then
　Begin
　　　Application.ProcessMessages;
　　BitBtn2.Enabled := True;
　　　BitBtn3.Enabled := True;

　　　for I:= 0 TO 100 Do
　　　　Begin
　　　　　Label3.Caption := IntToStr(I);
　　　　　sleep(100);
　　　　End;
　End
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
　　BitBtn2.Enabled := False;
　　BitBtn3.Enabled := False;
end;

Access 資料新增到不同資料庫，或查詢不同資料庫的資料

INSERT INTO [;database=C:\Users\s\Desktop\Access\data2.mdb].table3 ( txt1, txt2, txt3 )
SELECT txt1, txt2, txt3
FROM table1;

SELECT *FROM table3 IN "" [;database=C:\Users\s\Desktop\Access\data2.mdb];

database前需加分號[;database=....]
database需用絕對路徑 EX：C:\Users\s\Desktop\Access\data2.mdb

TQuery不要將冒號當成參數

若 ParamCheck = False 可避免Query將SQL字串視為帶參數。EX: C:\document.....

常用的Port

80 ：HTTP
443 ：Https
SSL網站
1433 ：SQL
Microsoft的SQL服務開放的埠