Oder wenn du es ganz simpel machen möchtest, dann vielleicht so in der Art:
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
FDQuery1.SQL.Text := 'SELECT MAX(last_modified) FROM deine_tabelle';
FDQuery1.Open;
if FDQuery1.Fields[0].AsDateTime > LetzterZeitstempel then
begin
// Änderung erkannt – aktualisiere Anzeige
LetzterZeitstempel := FDQuery1.Fields[0].AsDateTime;
AktualisiereDaten();
end;
end;