pegar hora de entrada e hora de saida

const aColWidths array[0..7] of integer = {130, 350, 135, 105, 95, 95, 200, 150};
const aColTitles array[0..7] of string = {'Matricula/Doc.', 'Nome', 'Cartão', 'Data', 'Entrada', 'Saida', 'Departamento', 'Perfil Acesso'}


	// INI FUNCIONARIOS / INICIO
	with ADO_Funcionario, SQL do
	begin
		Close;
		Clear;
		Add('select a.nome, a.COD_PESSOA, a.MATRICULA, c.CodigoDeBarras, COALESCE(d.Descricao,'''') Departamento, ');
		Add('(case when b.Tipo = 10 then CAST(b.DataHora as datetime) else null end) data_entrada, ');
		Add('(case when b.Tipo = 11 then CAST(b.DataHora as datetime) else null end) data_saida ',);
		Add('COALESCE(e.Descricao,'''') PerfilAcesso ');
		Add('from [TopAcesso].[dbo].[Funcionarios] a');
		Add('inner join [TopAcesso].[dbo].[Bilhetes] b on b.COD_PESSOA = a.COD_PESSOA and b.Tipo in (10,11) ');
		Add('inner join [TopAcesso].[dbo].[Cartoes] c on AND c.COD_PESSOA = a.COD_PESSOA ');
		Add('left join [TopAcesso].[dbo].[departamentos] d on d.COD_departamento = a.COD_departamento ');
		Add('left join [TopAcesso].[dbo].[PerfisDeAcesso] e where e.COD_PERFIL = a.COD_PERFIL ');

		if ((Copy(CB_Departamentos.Text,1,2) = '00') OR (Copy(CB_Departamentos.Text,1,2) = '**')) then
		begin
			// INI VISITANTES
			Add('UNION all ');

			Add('select x.nome, x.COD_PESSOA, x.DOCUMENTO, ''Visitante'' CodigoDeBarras, ''Externo'' Departamento ');
			Add('(case when b.Tipo = 10 then CAST(y.DataHora as date) else null end) data_entrada, '); 
			Add('(case when b.Tipo = 11 then CAST(y.DataHora as date) else null end) data_saida, '); 
			Add('COALESCE(z.Descricao,'''') PerfilAcesso ');
			Add('from [TopAcesso].[dbo].[Visitantes] x ');
			Add('inner join [TopAcesso].[dbo].[Bilhetes] y on y.COD_PESSOA = x.COD_PESSOA and y.Tipo in (10,11) ');
			Add('left join [TopAcesso].[dbo].[PerfisDeAcesso] z where z.COD_PERFIL = x.COD_PERFIL ');
		end;

		add('ORDER BY data_entrada desc');
		Open;

	end;
	// FIM FUNCIONARIOS / FIM

	// LIMPA OS DADOS DA GRADE
	for lin := 1 to StringGrid1.RowCount - 1 do
		for col := 0 to StringGrid1.ColCount - 1 do
			StringGrid1.Cells[col, lin] := '''';
 
	// CONFIGURA LARGURAS DAS COLUNAS
	for col := 0 to High(aColWidths) do
		StringGrid1.ColWidths[col] := aColWidths[col];

	// CONFIGURA OS TITULOS DAS COLUNAS
	for col := 0 to High(aColTitles) do
		StringGrid1.CELLS[col, 0] := aColTitles[col]

	// PREENCHE A GRADE
	lin := 1;
	while not ADO_Funcionario.EOF do
	begin
		StringGrid1.RowCount := StringGrid1.RowCount + 1;

		sdepartamento := ADO_Funcionario.FieldByName('Departamento').AsString;
		data_entrada := FormatDateTime('dd/mm/yyyy', ADO_Funcionario.FieldbyName('data_entrada').AsDate);
		data_saida := FormatDateTime('dd/mm/yyyy', ADO_Funcionario.FieldbyName('data_saida').AsDate);
		sperfilacesso := ADO_Funcionario.FieldByName('PerfilAcesso').AsString;

		StringGrid1.CELLS[0, lin] := ADO_Funcionario.FieldByName('MATRICULA').AsString;
		StringGrid1.CELLS[1, lin] := ADO_Funcionario.FieldByName('NOME').AsString;
		StringGrid1.CELLS[2, lin] := ADO_Funcionario.FieldByName('CodigoDeBarras').AsString;
		StringGrid1.CELLS[3, lin] := data_entrada;
		StringGrid1.CELLS[4, lin] := data_entrada;
		StringGrid1.CELLS[5, lin] := data_saida;
		StringGrid1.CELLS[6, lin] := sdepartamento;
		StringGrid1.CELLS[7, lin] := sperfilacesso;

		ADO_Funcionario.Next;

		Inc(lin); // incrementa a linha
	end;

procedure TformEasyInnerOnLine.Pesquisar_Registros;
const
  aColWidths: array[0..7] of integer = (130, 350, 135, 105, 95, 95, 200, 150);
  aColTitles: array[0..7] of string = ('Matricula/Doc.', 'Nome', 'Cartão', 'Data', 'Entrada', 'Saida', 'Departamento', 'Perfil Acesso');
begin
    /// o que vc me mandou ///
end;

    // INI FUNCIONARIOS / INICIO
    with ADO_Funcionario, SQL do
    begin
        Close;
        Clear;
        Add('select nome, COD_PESSOA, MATRICULA, CodigoDeBarras, Departamento, ');
        Add('max(data_entrada) data_entrada, ');
        Add('max(data_saida) data_saida, ');
        Add('PerfilAcesso ');
        Add('from (');

        Add('select a.nome, a.COD_PESSOA, a.MATRICULA, c.CodigoDeBarras, COALESCE(d.Descricao,'''') Departamento, ');
        Add('(case when b.Tipo = 10 then CAST(b.DataHora as datetime) else null end) data_entrada, ');
        Add('(case when b.Tipo = 11 then CAST(b.DataHora as datetime) else null end) data_saida, ');
        Add('COALESCE(e.Descricao,'''') PerfilAcesso ');
        Add('from [TopAcesso].[dbo].[Funcionarios] a');
        Add('inner join [TopAcesso].[dbo].[Bilhetes] b on b.COD_PESSOA = a.COD_PESSOA and b.Tipo in (10,11) ');
        Add('inner join [TopAcesso].[dbo].[Cartoes] c on AND c.COD_PESSOA = a.COD_PESSOA ');
        Add('left join [TopAcesso].[dbo].[departamentos] d on d.COD_departamento = a.COD_departamento ');
        Add('left join [TopAcesso].[dbo].[PerfisDeAcesso] e where e.COD_PERFIL = a.COD_PERFIL ');
 
        if ((Copy(CB_Departamentos.Text,1,2) = '00') OR (Copy(CB_Departamentos.Text,1,2) = '**')) then
        begin
            // INI VISITANTES
            Add('UNION all ');
 
            Add('select x.nome, x.COD_PESSOA, x.DOCUMENTO, ''Visitante'' CodigoDeBarras, ''Externo'' Departamento ');
            Add('(case when b.Tipo = 10 then CAST(y.DataHora as date) else null end) data_entrada, '); 
            Add('(case when b.Tipo = 11 then CAST(y.DataHora as date) else null end) data_saida, '); 
            Add('COALESCE(z.Descricao,'''') PerfilAcesso ');
            Add('from [TopAcesso].[dbo].[Visitantes] x ');
            Add('inner join [TopAcesso].[dbo].[Bilhetes] y on y.COD_PESSOA = x.COD_PESSOA and y.Tipo in (10,11) ');
            Add('left join [TopAcesso].[dbo].[PerfisDeAcesso] z where z.COD_PERFIL = x.COD_PERFIL ');
        end;

        Add(') tab');
        Add('GROUP BY nome, COD_PESSOA, MATRICULA, CodigoDeBarras, Departamento, PerfilAcesso ');
        Add('ORDER BY max(data_entrada) desc');

        Open;
 
    end;
    // FIM FUNCIONARIOS / FIM