Função para obter os segundos entre duas datas ou horas

uses
DateUtils;

É necessário declarar DateUtils.
Em versões mais recentes declare System.DateUtils.

// Função : SecondsBetween( DataHoraInicial, DataHoraFinal )
// Retorno: Integer

Exemplo de uso:

1
2
3
4

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(IntToStr( SecondsBetween(EncodeDate(2017, 5, 15), Date) ));
end;