clientdataset1.First;
while ClientDataSet1.Eof=false do
begin
if ClientDataSet1.FieldByName('Hora').AsDateTime>HoraFinJugada then
begin
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('Cerrar').AsBoolean:=True;
ClientDataSet1.Post;
end;
ClientDataSet1.Next;
end;