对话框延时自动关闭

procedure TfrmRKD_SMP_THREE.tmr1Timer(Sender: TObject);
var
   Hwnd: THandle;
begin
  Hwnd := FindWindow(nil, '提示');
  if Hwnd <> 0 then  SendMessage(Hwnd, WM_CLOSE, 0, 0);
  tmr1.Enabled:=False;
end;