function tdm.donnelistelivraisonfutur(i,codecam:integer):TLivraison;
var
     j    : integer;
     liv  : Tlivraison;
begin
     try
          ds.CommandType := cmdtext;
          ds.CommandText := 'SELECT client.nom_cli,livraison.date_livraison FROM client INNER JOIN livraison ON client.code_client=livraison.code_client WHERE (livraison.code_camion=' + IntToStr(codecam) + ')';
          ds.Active := true;
          for j:=1 to i-1 do
          begin
               ds.Next;
          end;
          liv.nomcli := ds.Fields[0].AsString;
          liv.dateLiv := ds.Fields[1].AsDateTime;
          ds.Active := false;
          result := liv;
     except
          on E : Exception do
          begin
               MessageDlg(E.Message, mtError, [mbOK], 0);
          end;
     end;
end;