TMyRecord = Record 
  field1 : string;
  field2 : string;
  ......
end;
 
TMyArray = array of TMyRecord;
 
MyArray : TMyArray;

TMyThread = class(TThread)
........
public
    //address
    MemAddr  : ^TMyRecord;

MyThread.MemAddr := @MyArray[i];

s := MemAddr^.field1;

constructor TMyThread.Create;
begin
    inherited Create(True);
    ............
    ThreadList.Add(self);
end

destructor TMyThread.Destroy;
begin
    ................
    ThreadList.Remove(self);
    inherited Destroy;
end

function getThreadCount : integer;
begin
    Result := ThreadList.LockList.Count;
    ThreadList.UnlockList;
end;

function PregQuote(str: string): string;
var  r: IRegex;  m: string;
begin
  r := RegexCreate('([\.\+\*\?\[\^\]\$\(\)\{\}\=\!\<\>\|\:])', [rcoIgnoreCase, rcoUngreedy]);
  m :=  r.Replace(str,'\$1');
  Result := m;
end;

function HtmlSpecialChars(s: string): string;
begin
  s := AnsiReplaceText(s, '&', '&');
  s := AnsiReplaceText(s, '"', '"');
  s := AnsiReplaceText(s, '«', '«');
  s := AnsiReplaceText(s, '»', '»');
  s := AnsiReplaceText(s, '''', ''');
  s := AnsiReplaceText(s, '<', '&lt;');
  s := AnsiReplaceText(s, '>', '&gt;');
 
  Result := s;
end;

function RemoveNonPrintable(s: string): string;
var
  R: IRegex;
begin
  R := RegexCreate('[^\x20-\xFF]+', [rcoIgnoreCase]);
  s := R.Replace(s, ' ');
  R := RegexCreate('\s+', [rcoIgnoreCase]);
  s := R.Replace(s, ' ');
  Result := s;
end;

    FSessionCookies : string; // cookies :)

    property SessionCookies : string read FSessionCookies write FSessionCookies;

   function TRpcCaller.Post(const RawData: string): string;

      FSession.AllowCookies := true;
      if FSessionCookies <> '' then
        begin
          CM := TidCookieManager.Create(FSession);
          CC := TIdCookies.Create(CM);
          Cookie := TIdCookieRFC2109.Create(CC);
          Cookie.CookieText :=  FSessionCookies;
          CM.CookieCollection.AddCookie(cookie);
       end;

  FSessionCookies := FSession.CookieManager.CookieCollection.Items[0].CookieText

function GetBuildTime:TDateTime;
begin
Result:=FileDateToDateTime(PInteger(PImageNtHeaders(hInstance+DWORD(PImageDosHeader(hInstance)._lfanew)).OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_RESOURCE].VirtualAddress+hInstance+4)^);
end;

 procedure GotoDataStart;
  var LFlags:byte;
      LExtra:word;
      LNullFindChar:char;
  begin
    AStream.Seek(3,soFromCurrent);
    AStream.Read(LFlags,1);
    AStream.Seek(6,soFromCurrent);
    // at pos 10 now
    if LFlags and $4 = $4 then begin // FEXTRA
      AStream.Read(LExtra, 2);
      AStream.Seek(LExtra, soFromCurrent);
    end;
 
    if LFlags and $8 = $8 then begin // FNAME
      repeat
        AStream.Read(LNullFindChar, 1) 
      until LNullFindChar=#0;
    end;
 
    if LFlags and $10 = $10 then begin // FCOMMENT
      repeat
        AStream.Read(LNullFindChar, 1)
      until LNullFindChar=#0;
    end;
 
    if LFlags and $2 = $2 then begin // FHCRC
      AStream.Seek(2, soFromCurrent); // CRC16
    end;
  end;

procedure GotoDataStart;
  var LFlags:byte;
      LExtra:word;
      LNullFindChar:char;
  begin
    AStream.Seek(3,soFromCurrent);
    AStream.Read(LFlags,1);
    AStream.Seek(6,soFromCurrent);
    // at pos 10 now
 
    if LFlags and $4 = $4 then begin // FEXTRA
      AStream.Read(LExtra, 2);
      AStream.Seek(LExtra, soFromCurrent);
    end;
 
    if LFlags and $8 = $8 then begin // FNAME
      repeat
        if AStream.Read(LNullFindChar, 1) = 0 then break;
      until LNullFindChar=#0;
    end;
 
    if LFlags and $10 = $10 then begin // FCOMMENT
      repeat
        if AStream.Read(LNullFindChar, 1) = 0 then break;
      until LNullFindChar=#0;
    end;
 
    if LFlags and $2 = $2 then begin // FHCRC
      AStream.Seek(2, soFromCurrent); // CRC16
    end;
  end;

function GetHostFromIP(sIPAddress: string): string;
var
	WSAData: TWSAData;
	addr : Cardinal;
	lpHost1: PHostEnt;
begin
	Result := '';
	if WSAStartup(MakeWord(1,0), WSAData) = 0 then
	begin
		addr := inet_addr(PChar(sIPAddress));
		lpHost1 := GetHostByAddr(@addr, sizeof(addr), AF_INET);
		if lpHost1 <> nil then
			Result := StrPas(lpHost1^.h_name)
		else
			Result := sIPAddress;
		WSACleanup;
	end;
end;

function getIPFromHost(const HostName: string): string;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  i: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  Result := '';
  phe := GetHostByName(PChar(HostName));
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  i := 0;
  while pPtr^[i] <> nil do
  begin
    Result := inet_ntoa(pptr^[i]^);
    Inc(i);
  end;
  WSACleanup;
end;

      var 
      pData: PChar;
      dHandle: Cardinal;
 
      ...
 
      dHandle := FindResource(hInstance, 'MYDATA', RT_RCDATA);
      if dHandle <> 0 then
        begin
          dHandle := LoadResource(hInstance, dHandle);
          if dHandle <> 0 then pData := LockResource(dHandle);
          FreeResource(dHandle);
      end;

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
 
...
implementation
...
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   if not (csDesigning in ComponentState) then
       RegisterServiceProcess(GetCurrentProcessID, 1);
end;

procedure SetupSystemTime(dt: TDateTime);
var vsys : _SYSTEMTIME;
    vYear, vMonth, vDay, vHour, vMin, vSec, vMm : Word;
begin
   DecodeDate(dt, vYear, vMonth, vDay);
   DecodeTime(dt, vHour, vMin, vSec, vMm);
   vMm := 0;
   vsys.wYear := vYear;
   vsys.wMonth := vMonth;
   vsys.wDay := vDay;
   vsys.wHour := ( vHour - 2 );
   vsys.wMinute := vMin;
   vsys.wSecond := vSec;
   vsys.wMilliseconds := vMm;
   vsys.wDayOfWeek := DayOfWeek( Trunc(dtpDate.Date) );
   SetSystemTime( vsys );
end;

function Translit(s: string): string;
const
  rus: string = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ';
  lat: array[1..66] of string = ('a', 'b', 'v', 'g', 'd', 'e', 'yo', 'zh', 'z', 'i', 'y', 'k', 'l', 'm', 'n', 'o', 'p', 'r', 's', 't', 'u', 'f', 'kh', 'ts', 'ch', 'sh', 'shch', '''', 'y', '''', 'e', 'yu', 'ya', 'A', 'B', 'V', 'G', 'D', 'E', 'Yo', 'Zh', 'Z', 'I', 'Y', 'K', 'L', 'M', 'N', 'O', 'P', 'R', 'S', 'T', 'U', 'F', 'Kh', 'Ts', 'Ch', 'Sh', 'Shch', '''', 'Y', '''', 'E', 'Yu', 'Ya');
var  
  p, i, l: integer;
begin
  Result := '';
  l := Length(s);
  for i := 1 to l do
  begin
    p := Pos(s[i], rus);
    if p<1 then Result := Result + s[i] else Result := Result + lat[p];
  end;
end;

 
// описываем и экспортируем функцию
const
  MB_TIMEDOUT = 32000;
 
function MessageBoxTimeOut(hWnd: HWND; lpText: PChar; lpCaption: PChar; uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall; external user32 name 'MessageBoxTimeoutA';
 
...
 
procedure TForm1.Button1Click(Sender: TObject) ;
var
  iRet: Integer;
  iFlags: Integer;
begin
   iFlags := MB_OK or MB_SETFOREGROUND or MB_SYSTEMMODAL or MB_ICONINFORMATION;
   MessageBoxTimeout(Application.Handle, 'Test a timeout of 2 seconds.', 'MessageBoxTimeout Test', iFlags, 0, 2000) ;
 
   iFlags := MB_YESNO or MB_SETFOREGROUND or MB_SYSTEMMODAL or MB_ICONINFORMATION;
   iRet := MessageBoxTimeout(Application.Handle, 'Test a timeout of 5 seconds.', 'MessageBoxTimeout Test', iFlags, 0, 5000) ;
   case iRet of
     IDYES:
       ShowMessage('Да') ;
     IDNO:
       ShowMessage('Нет') ;
     MB_TIMEDOUT:
       ShowMessage('Таймаут) ;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hs: THeapStatus;
begin
  hs := GetHeapStatus();
  showmessage(IntToStr(i.TotalUncommitted	));
end;

function EnumInstalledDotNet(Index: Integer; out VersionName: String):
Boolean;
var
  hkey: Windows.HKEY;
  hsubkey: Windows.HKEY;
  I: Cardinal;
  J: Cardinal;
  NameBuf: array[0..MAX_PATH] of Char;
  CNameBuf: Cardinal;
  lwt: TFileTime;
  vt: DWORD;
  AnyFound: Boolean;
begin
  Result := False;
  VersionName := '';
  if ERROR_SUCCESS = RegOpenKeyEx(HKEY_LOCAL_MACHINE,
  PChar('SOFTWARE\Microsoft\.NETFramework\policy'), 0,
  KEY_ENUMERATE_SUB_KEYS, hkey) then
  try
    I := 0;
    while True do
    begin
      AnyFound := False;
      CNameBuf := MAX_PATH + 1;
      if ERROR_SUCCESS <> RegEnumKeyEx(hkey, I, @NameBuf[0], CNameBuf,nil, nil, nil, @lwt) then
      begin
        Break;
      end;
      if (NameBuf[0] = 'v') and (NameBuf[1] in ['1'..'9']) then
      begin
        VersionName := String(NameBuf);
        if ERROR_SUCCESS = RegOpenKeyEx(hkey, @NameBuf[0], 0,KEY_QUERY_VALUE, hsubkey) then
        try
          J := 0;
          while true do
          begin
            CNameBuf := MAX_PATH + 1;
            if ERROR_SUCCESS <> RegEnumValue(hsubkey, J, @NameBuf[0],CNameBuf, nil, @vt, nil, nil) then
            begin
              Break;
            end;
            if (vt = REG_SZ) and (NameBuf[0] <> #0) then
            begin
              VersionName := VersionName + '.' + String(NameBuf);
              AnyFound := True;
              Break;
            end;
            Inc(J);
          end;
        finally
          RegCloseKey(hsubkey);
        end;
      end;
      Inc(I);
      if AnyFound then
      begin
        if Index = 0 then
        begin
          Result := True;
          Break;
        end;
        Dec(Index);
      end;
    end;
  finally
    RegCloseKey(hkey);
  end;
end;

SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);

showmessage(Windows.GetEnvironmentStrings);

uses clipbrd, shellapi;
...
 
function getFilesFromClipboard(): string;
var
   f: THandle;
   buffer: Array [0..MAX_PATH] of Char;
   i, numFiles: Integer;
begin
   Result := '';
   Clipboard.Open;
   try
     f:= Clipboard.GetAsHandle( CF_HDROP ) ;
     If f <> 0 Then Begin
       numFiles := DragQueryFile( f, $FFFFFFFF, nil, 0 ) ;
       for i:= 0 to numfiles - 1 do begin
         buffer[0] := #0;
         DragQueryFile( f, i, buffer, sizeof(buffer)) ;
         Result := Result + buffer + ',';
       end;
     end;
   finally
     Clipboard.close;
   end;
end;

function IsDebuggerPresent2(): Boolean;
var
   hFile: THandle;
begin
   hFile  := CreateFileA('.NTICE', GENERIC_READ or GENERIC_WRITE,
     FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING,
     FILE_ATTRIBUTE_NORMAL, 0);
   if (hFile <> INVALID_HANDLE_VALUE) then
    begin
     CloseHandle(hFile);
     Result := True;
     exit;
   end;
   Result := False;
   hFile  := CreateFileA('.SICE', GENERIC_READ or GENERIC_WRITE,
     FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING,
     FILE_ATTRIBUTE_NORMAL, 0);
   if (hFile <> INVALID_HANDLE_VALUE) then
    begin
     CloseHandle(hFile);
     Result := True;
     exit;
   end;
end;