System.TObject
  Classes.TPersistent
    Classes.TComponent
      SqlExpr.TSQLMonitor

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.SQLMonitor1LogTrace(Sender: TObject; TraceInfo: TDBXTraceInfo);
begin
  // vamos transferir para um TMemo as mensagens trocadas
  // entre o SQLConnection e o banco de dados
  Memo1.Lines := TStrings(SQLMonitor1.TraceList);
end;

select * from `livros`
MySQL - mysql_real_query
MySQL - mysql_field_count
MySQL - mysql_store_result
MySQL - mysql_fetch_field
MySQL - mysql_escape_string
MySQL - mysql_escape_string
SELECT TABLE_SCHEMA, CAST(NULL AS CHAR(1)), TABLE_NAME, 
INDEX_NAME, CASE WHEN NON_UNIQUE = 0 THEN INDEX_NAME ELSE 
NULL END, INDEX_NAME='PRIMARY', NON_UNIQUE=0, 1=1 FROM 
INFORMATION_SCHEMA.STATISTICS WHERE (TABLE_SCHEMA = 'estudos' 
OR (1=2)) AND (1=1 OR 1=2) AND (TABLE_NAME = 'livros' OR (1=2)) 
GROUP BY 1, 2, 3 ,4 ORDER BY 1, 2, 3, 4
MySQL - mysql_real_query
MySQL - mysql_field_count
MySQL - mysql_store_result
MySQL - mysql_fetch_field
MySQL - mysql_fetch_row
MySQL - mysql_fetch_lengths
MySQL - mysql_escape_string
MySQL - mysql_escape_string
MySQL - mysql_escape_string
SELECT TABLE_SCHEMA, CAST(NULL AS CHAR(1)), TABLE_NAME, 
INDEX_NAME, COLUMN_NAME, SEQ_IN_INDEX, COLLATION='A' FROM 
INFORMATION_SCHEMA.STATISTICS WHERE (TABLE_SCHEMA = 'estudos' 
OR (1=2)) AND (1=1 OR 1=2) AND (TABLE_NAME = 'livros' OR (1=2)) 
AND (INDEX_NAME = 'A' OR (1=1)) ORDER BY 1, 2, 3, 4, SEQ_IN_INDEX
MySQL - mysql_real_query
MySQL - mysql_field_count
MySQL - mysql_store_result
MySQL - mysql_fetch_field
MySQL - mysql_fetch_row
MySQL - mysql_fetch_lengths
MySQL - mysql_fetch_row
MySQL - mysql_free_result
select * from `livros`
MySQL - mysql_real_query
MySQL - mysql_field_count
MySQL - mysql_store_result
MySQL - mysql_fetch_field
MySQL - mysql_fetch_row
MySQL - mysql_fetch_lengths

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure listarArquivosDir(diretorio: string; lista: TStrings);
var
  search_rec: TSearchRec;
begin
  if FindFirst(diretorio + '*.*', faAnyFile, search_rec) = 0 then
    begin
      repeat
        if search_rec.Attr <> faDirectory then
          lista.Add(search_rec.Name);
      until FindNext(search_rec) <> 0;

      FindClose(search_rec);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  listarArquivosDir('c:\', ListBox1.Items);
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  data_hora: TDateTime;
begin
  // não esqueça de incluir DateUtils no uses

  // vamos construir a data 22/10/2009
  data_hora := EncodeDateTime(2009, 10, 22, 0, 0, 0, 0);

  // vamos exibir o resultado
  ShowMessage('A data é: ' + DateTimeToStr(data_hora));
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm2.Button1Click(Sender: TObject);
var
  a, b, c: Real;
begin
  c := 36.056; // medida da hipotenusa
  b := 30; // medida do cateto adjascente

  // agora vamos calcular o comprimento da cateto oposto
  a := sqrt(sqr(c) - sqr(b));

  // e mostramos o resultado
  Edit1.Text := 'A medida do cateto oposto é: ' +
    FloatToStr(a);
end;