procedure TMainForm.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin   
   if not CanMinimize then begin
    SetWindowPos(MainForm.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);
    MainForm.Repaint;
   end;
 end;

procedure TmainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
 if Msg.CmdType = SC_MINIMIZE then MainForm.Show else
 inherited;
end;
 

MainForm.Perform(WM_SYSCOMMAND,SC_MINIMIZE,0);
MainForm.Perform(WM_SYSCOMMAND,SC_RESTORE,0);

function CreateTbl: Boolean;
resourcestring
  DBName = 'DB';
var
  DataSource: TDataSource;
  Table: TTable;
begin
  Result:= False;
  if not DirectoryExists(ExtractFilePath(Application.ExeName) + DBName) then
    if not CreateDir(ExtractFilePath(Application.ExeName) + DBName) then
      Exit;
  DataSource:= TDataSource.Create(nil);
  try
    Table:= TTable.Create(nil);
    try
      DataSource.DataSet:= Table;
      with Table do
      begin
        DatabaseName:= '.\' + DBName;
        TableType:= ttParadox;
        TableName:= 'Events';
        with FieldDefs do
        begin
          Clear;
          Add('Name', ftString, 40, True);
          Add('Time', ftDateTime, 0, True);
          Add('Note', ftString, 40, False);
        end;
        with IndexDefs do
        begin
          Clear;
          Add('NameIndex', 'Name', [ixPrimary]);
        end;
        CreateTable;
        Result:= True;
      end;
    finally
      Table.Free;
    end;
  finally
    DataSource.Free;
  end;
end;

procedure ClickKey(Key: char);
begin
 Keybd_event(ord(Key),VkKeyScan(Key),0,0);
 sleep(100);
 Keybd_event(ord(Key),VkKeyScan(Key),KEYEVENTF_KEYUP,0);
end;

 Keybd_event(VK_NUMLOCK,0,0,0);

procedure SetSysTime(Year, Month, Day, Hour, Minute, Second: word);
var
  SysTime: TSystemTime;
begin
  DateTimeToSystemTime(EncodeDateTime(Year, Month, Day, Hour, Minute, Second, 0), SysTime);
  SetLocalTime(SysTime);
end;

DateTimeToSystemTime(EncodeDateTime(Year, Month, Day, Hour, Minute, Second, 0), SysTime);

DateTimeToSystemTime(EncodeDate(Year, Month, Day) + EncodeTime( Hour, Minute, Second, 0), SysTime);

procedure TForm1.Button1Click(Sender: TObject);
var
  ST: TDateTime;
  S: String;
begin
  ST:= Now; // for TDateTime
  S:= DateTimeToStr(Now); // for String;
end;