procedure TFrmGetDailyChk.LogAdd(const Str: String);begin
memHistory.Lines.Add(str);
//送一個跳到最末行Message給memHistory,使memo始終保持最後一筆訊息 SendMessage(memHistory.Handle,WM_VSCROLL, MAKELONG(SB_BOTTOM,0),0);
end;