function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;i:integer;
begin
   F.Wnd := 0;
   F.wFunc := FO_COPY;
   for i:=0 to Listq.count-1 do
      FromFile:=FromFile+Listq[i]+#0;
   FromFile:=FromFile+#0#0;
   F.pFrom:=pchar(FromFile);
   ToDir:=ToDir+#0;
   F.pTo:=pchar(ToDir);
   F.fFlags := FOF_RENAMEONCOLLISION;
   result:=ShFileOperation(F) = 0;
end;

var  time1, time2, time3: TTime; //Глобальные

procedure TForm1.RzBitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  time1 := Time;
end;

procedure TForm1.RzBitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var h, m, s, ms: Word;
  st: string;
  d: Double;
begin                           
  time2 := Time;
  time3 := time2 – time1;
  DecodeTime(time3, h, m, s, ms);
  st := IntToStr(s) + ‘.’ + IntToStr(ms);
  d := RoundTo(StrToFloat(st), -1);
  label1.Caption := FloatToStr(d);
end;

function EnumClasses(HWND:THandle;lParam:Integer):BOOL;stdcall;
var s:string;
begin
   SetLength(s,256);
   SetLength(s,GetClassName(HWND,s[1],256));
   Form1.Memo1.Lines.Add(s);
   Result:=true;
end;

на кнопке пишем
   EnumChildWindows(<хендл окна, у которого перечисляем>,@EnumClasses,0);

procedure TForm1.LC(p: integer; s: PAnsiChar);
begin
  Screen.Cursors[p] := LoadCursor(HInstance,s);
  Image1.Cursor:=TCursor(p);
end;

function Calculate(SMyExpression: string; digits: Byte): string;
var
   z: Char;
   ipos: Integer;

   function StrToReal(chaine: string): Real;
   var
     r: Real;
     Pos: Integer;
   begin
     Val(chaine, r, Pos);
     if Pos > 0 then Val(Copy(chaine, 1, Pos – 1), r, Pos);
     Result := r;
   end;

   function RealToStr(inreal: Extended; digits: Byte): string;
   var
     S: string;
   begin
     Str(inreal:0 : 0, S);
     realToStr := S;   
   end;   

   procedure NextChar;   
   var 
     s: string;   
   begin
     if ipos > Length(SMyExpression) then 
     begin 
       z := #9;   
       Exit;
     end 
     else
     begin
       s := Copy(SMyExpression, ipos, 1);
       z := s[1];   
       Inc(ipos);   
     end;   
     if z = ‘ ‘ then nextchar;
   end;   

   function Expression: Real;
   var
     w: Real;

     function Factor: Real;
     var 
       ws: string;
     begin
       Nextchar;   
       if z in [‘0′..‘9′] then
       begin 
         ws := ”;
         repeat 
           ws := ws + z;
           nextchar   
         until not (z in [‘0′..‘9′, ‘.’]);
         Factor := StrToReal(ws);
       end 
       else if z = ‘(’ then 
       begin
         Factor := Expression;
         nextchar   
       end
       else if z = ‘+’ then Factor := +Factor   
       else if Z = ‘-’ then Factor := -Factor;   
     end;
   
     function Term: Real;
     var 
       W: Real;
     begin
       W := Factor;
       while Z in [‘*’, ‘/’] do 
         if z = ‘*’ then w := w * Factor
       else
         w := w / Factor;
       Term := w;   
     end;
   begin 
     w := term;
     while z in [‘+’, ‘-’] do
       if z = ‘+’ then w := w + term
     else 
       w := w – term;
     Expression := w;
   end;
begin
   ipos   := 1;
   Result := RealToStr(Expression, digits);
end;

s:=‘1+2*5+3+(5*2+7)’;
s:=calculate(s,0);

var
  i: integer;
begin
  for i := 0 to Form1.ControlCount – 1 do
  begin
    if (Form1.Controls[i] is TCheckBox) then
      if (Form1.Controls[i] as TCheckBox).Checked then
      Memo1.Lines.Add((Form1.Controls[i] as TCheckBox).Caption&#4
1;
  end;
end

var cc: TCanvas;
begin
  if (DataCol = 0) then
  begin
    Icon := TIcon.Create;
    Icon.LoadFromFile(‘user1_16.ico’);
    cc := DBGridEh1.Canvas;
    cc.FillRect(rect);
    cc.Draw(Rect.Left, Rect.Top, Icon);
    cc.TextOut(Rect.Left + 20, Rect.Top, DBGridEh1.DataSource.DataSet.Fields[0].AsString);
    Icon.Free;
 end;